Kolla om id finns i databasen?

4 svar · 218 visningar · startad av netslave 27 juni 2004

netslaveMedlem sedan juni 200470 inlägg

Frågan27 juni 2004 10:20#1

Hej, försöker att skriva ut "Raderad" om en annons är borttagen och "Finns" om den finns kvar.

Från url:en plockar jag fram id:et och kollar sen i db:n om den finns eller inte.

Som det är nu så skrivs det "Finns" hela tiden oavsett id i url:en. :(

<%id = Request.QueryString("id")%> 

<% Set Databas = Server.CreateObject("ADODB.Connection")
Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("xxxxxxxxxxxxxxxxx.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM annonser WHERE id=id"

RecSet.Open SQL, Databas, adOpenStatic, adLockOptimistic %>

<%
If (RecSet.EOF) Then
	Response.Write "Raderad"
Else
	Response.Write "Finns"
End If
%>

<%
RecSet.close
Set RecSet = Nothing
Databas.Close
Set Databas=Nothing
%>

cyprysMedlem sedan dec. 20003 563 inlägg

27 juni 2004 10:24#2

id=id är ju faktiskt rätt sant. ;)

SQL = "SELECT * FROM annonser WHERE id=" & id

däremot.

F.ö. borde du kolla att id är numeriskt (isnumeric()) innan du lägger in variabeln i sql-satsen.

netslaveMedlem sedan juni 200470 inlägg

27 juni 2004 10:30#3

cyprys skrev:

id=id är ju faktiskt rätt sant. ;)
SQL = "SELECT * FROM annonser WHERE id=" & id
däremot.

F.ö. borde du kolla att id är numeriskt (isnumeric()) innan du lägger in variabeln i sql-satsen.

Får tyvärr "[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id='. " på den raden ovan.

Ska läsa på om (isnumeric()) nu. :) Ska användas så inte databasen hackas?

voigtann1Medlem sedan juni 20019 519 inlägg

27 juni 2004 11:02#4

Har du request.querystring:et med dig?
tex main.asp**?id**=1

för om du bara har main.asp och kör sidan så kommer du få felet du hade där...

cyprysMedlem sedan dec. 20003 563 inlägg

27 juni 2004 11:11#5

<%id = Request.QueryString("id")

if isnumeric(id) then

  Set Databas = Server.CreateObject("ADODB.Connection")
  Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &     Server.MapPath("xxxxxxxxxxxxxxxxx.mdb")
  Set RecSet = Server.CreateObject("ADODB.Recordset")

  SQL = "SELECT * FROM annonser WHERE id = " & id

  RecSet.Open SQL, Databas, adOpenStatic, adLockOptimistic 

  If (RecSet.EOF) Then
	Response.Write "Raderad"
  Else
	Response.Write "Finns"
  End If

  RecSet.close : Set RecSet = Nothing
  Databas.Close : Set Databas=Nothing

else

  response.write("Ingen annons vald!")

end if
%>