Hej! Jag undrar hur man öppnar databasen på ett speciellt sätt... det jag vill att den ska kolla ifall vad = Querystring("vad") och vems är Tom...
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("-----")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM camping WHERE vad = '" & Request.Querystring("vad") & "' AND vems = ''"
rs1.Open Addera, Connect, 3, 3
felet jag får med denna kod är:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/kommun/camping_hyr.asp, line 50
Alltså att den inte hittar posten...
Det finns Färdiga "Tält" i databasen! Och detta tillhör "Köp" Funktionen!
Felmeddelandet tyder väl på att det inte finns några poster som motsvarar din fråga.
Om du kollar att rs1 inte är EOF först så kommer du inte få något felmeddelande.
<%if rs("ager") = "Lägenhet" OR rs("ager") = "Villa" OR rs("ager") = "Lyxhus" then
session("fel") = ("Du kan inte hyra hos oss förens du säljer ditt hus!")
response.redirect "camping.asp"
elseif rs("ager") = "Husvagn" OR rs("ager") = "Stuga" OR rs("ager") = "Tält" then
session("fel") = ("Du hyr redan hos oss!")
response.redirect "camping.asp"
end if
if request.querystring("vad") = "tält" then
if clng(rs("pengar")) < 19 Then
session("fel") = ("Du har inte råd att hyra ett tält!")
response.redirect "camping.asp"
else
rs("pengar") = rs("pengar") - 19
rs("ager") = "Tält"
rs.update
if not rs1.eof then
rs1("vems") = gnamn
rs1.update
session("hyr") = Ja
end if
end if
elseif request.querystring("vad") = "husvagn" then
if clng(rs("pengar")) < 19 then
session("fel") = ("Du har inte råd att hyra en husvagn!")
response.redirect "camping.asp"
else
rs("pengar") = rs("pengar") - 49
rs("ager") = "Husvagn"
rs.update
if not rs1.eof then
rs1("vems") = gnamn
rs1.update
session("hyr") = Ja
end if
end if
elseif request.querystring("vad") = "stuga" then
if clng(rs("pengar")) < 19 then
session("fel") = ("Du har inte råd att hyra en stuga!")
response.redirect "camping.asp"
else
rs("pengar") = rs("pengar") - 99
rs("ager") = "Stuga"
rs.update
if not rs1.eof then
rs1("vems") = gnamn
rs1.update
session("hyr") = Ja
end if
end if
end if
%>
Men rs1("vems") blir inte gnamn, allt annat fungerar