Request.QueryString giver mig problemer, fatter minus
Arrg, hvad er det jeg ikke gør rigtig her?Jeg har den her. random.htm
<form method="get" action="random.asp">
<div align="center">
<center>
<table border="0">
<tr>
<td>Vælg database: </td>
<td>
<select size="1" name="databasenr">
<option>nr1</option>
<option>nr2</option>
</select></td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" value="Send">
</td>
</tr>
</table>
</center>
</div>
Den sender så "databasenr" videre til random.asp. MEN random.asp har jeg sku lidt problemer med :(
Jeg ville jo meget gerne have at enten nr1 eller nr2 ville blive valgt, som database, men alt der sker er at jeg får en fejl.
Microsoft OLE DB Provider for ODBC Drivers error '80040e37'
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'dbnavn'. Make sure it exists and that its name is spelled correctly.
/tema/konkurrencer/random.asp, line 21
Linie 21 er så: Set objRsCount = objConn.Execute(strSQL)
random.asp
<%
dbnavn = Request.QueryString("databasenr")
Function RandomRs(intInterval)
Randomize
lngTal = CInt(Rnd() * intInterval)
If lngTal = 0 Then
RandomRs = lngTal + 1
Else
RandomRs = lngTal
End If
End Function
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={MicroSoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
strSQL = "SELECT COUNT(*) FROM dbnavn"
Set objRsCount = objConn.Execute(strSQL)
Randomize
strSQL = "SELECT * FROM dbnavn WHERE id = " & RandomRs(objRsCount(0))
Set objRs = objConn.Execute(strSQL)
Response.Write(objRs("Navn"))
%>
Håber en af jeg kan hjælpe mig her.
