hjælp til denne kode
er ikke den største haj til asp og den gir lidt fejl meddelser :-( så ku godt bruge lidt hjælp :-)jeg er ved at lave en billede kopi sikring som omdøber mappen med billederne og siderne i ved hvert besøg, så direct linking ikke er muligt.
default.asp includer html filerne i en random-omdøbt som indeholder siderne og billederne. så når den besøgene directlinker til et billede, så når hans session dør, eller når en anden åbner siden, så ændre alle billederne adresse :-)
-----kode------
<%
hent = Request.Querystring("hent")
If Session("omdoeb") = "" then
Session("omdoeb") = "ja"
Randomize
tal = int(rnd * 6 + 1)
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("omdoeb.mdb")
Conn.Open DSN
strSQL = "Select * From omdoeb"
Set rs = Conn.Execute(strSQL)
od = rs("omdoeb")
conn.close
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath(""&od&""))
Folder.Name = ""&tal&""
Set folderObject = Nothing
strSQL = "Update omdoeb set "
strSQL = strSQL & " Where navn = "&tal&""
Conn.Execute(strSQL)
Conn.Close
strSQL = "Select * From omdoeb"
Set rs = Conn.Execute(strSQL)
inc = rs("omdoeb")
<!--#include file="<%"&inc&"/"&hent&""-->
conn.close
set conn = nothing
else
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("omdoeb.mdb")
Conn.Open DSN
strSQL = "Select * From omdoeb"
Set rs = Conn.Execute(strSQL)
inc2 = rs("omdoeb")
<!--#include file="<%"&inc2&"/"&hent&"%>"-->
Conn.close
set conn = nothing
end if
%>