ÆNDRE STI
Hej eksperter!jeg har dummet mig ;-) jeg skal nemlig have lavet et script som tæller en op for hvert klik. det virker helt fint men i min database glemte jeg at skrive hele stien til filen, men jeg skrev bare \"filnavn.zip\"!!!
Nu ligger min downloads på en anden server end min side, er der ikke en som kan omskrive denne del af scriptet så den linker til http://www.anden-server.dk/FILNAVN.ZIP
Eksempel: indsætter jeg hele scriptet nu linker den bare til FILNAVN.ZIP men den skal linke til http://www.anden-server.dk/FILNAVN.ZIP
<%
Response.Buffer = True
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"xxxxx.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM \" & Request(\"mode\") & \" WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs(\"klik\") = rs(\"klik\") + 1
strURL = (\"FILNAVN.ZIP\")
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
Response.Redirect(strURL)
End If
End If
%>
