först vill jag tacka vide för scriptet...det funkar oså lokalt men ej på webben??? jag får detta meddelande:
Server.MapPath() error 'ASP 0172 : 80004005'
Invalid Path
/billdal/slumpa.asp, line 4
The Path parameter for the MapPath method must be a virtual path. A physical path was used.
men varfrör :? här är koden för sidan slumpa.asp :
<!-- #include file="adovbs.inc" --><body background="bak.jpg" text="black" link="black">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
'***** Hämta en länk slumpartat ifrån databasen *****
SQL = "select Count(*) AS klo from users"
Set RS_klo = databas.execute(SQL)
Randomize
Set rstemp = Server.Createobject("ADODB.Recordset")
SQL = "Select * from users"
rstemp.cursorlocation = aduseclient
rstemp.cachesize = 5
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
rstemp.move Int(Rnd*RS_klo("klo"))
%>
<font face="Verdana" size="1" color="black"><b>
<%=rstemp("username")%></font></b>
<font face="Verdana" size="1" color="black">
är en av alla billdal.com<br>
medlemmar. <font face="Verdana" size="1" color="black"><b><%=rstemp("username")%></font></b>
skrev detta <br> om sig själv:
<br>
<font face="Verdana" size="1" color="black"><b><%=rstemp("fakta")%></font></b><br>
Vill du snacka med <font face="Verdana" size="1" color="black"><b><%=rstemp("username")%></font></b><br>
personligen kan du skriva<br> ett mejl till
personen på <br> denna adress:
<font face="Verdana" size="1" color="black"><b>
<%=rstemp("e-post")%><br>
</font></b>
</body>
kan man inte ändra i scriptet så att det blir en databaskoppling i denna form... :
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=F:\members\billdal\db\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") %>