Request.QueryString

Hmm, hvad skal den \"Request.QueryString\" GØRE?

Oh sorry

Hvad er der galt med den du har?

at min Request.QueryString ikke dur ?

Hmm, prøv request(\"navn\")

Hvor kommer \"navn\" fra, en form?

Det jeg er ude på et en som giver mig en sql string som virker..

test.asp?navn=hansen eller noget

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/db.mdb\")
strSQL = \"select * from tabel where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>

Prøv at fjerne den sidste parentes, der er kun parentes slut, ikke parentes start!

Hmm jeg for ingen fejl nu..

men heller ingen løsning

dvs,, den er blank

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/db.mdb\")
strSQL = \"select * from tabel where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF

Response.Write rs(\"navn\")
%>

Ellers prøv at se http://www.html.dk/tutorials/asp/lektion19.asp

pepsi er det ikke den samme code som foods ?

som pepsi sige

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/db.mdb\")
strSQL = \"select * from tabel where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Response.Write rs(\"navn\")
Do Until rs.EOF
%>

Her finder du måske noget, men du skriver ikke noget, i pepsi koden, er der Response.Write rs(\"navn\"), så der kommer noget output

stadig blank !

Prøv at skrive Request(\"navn\") istedet...

--
Jonas

ehh
prøv at skrive hele sourcen apocryphal

Denne virker på min computer

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
strSQL = \"select * from tabel where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)
Response.Write rs(\"navn\")
Conn.Close
Set Conn = Nothing
%>

Eller den lidt bedre

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"data.mdb\")
strSQL = \"select * from tabel where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)
If rs.EOF Then
Response.Write \"Navnet findes ikke i databasen\"
Else
Response.Write rs(\"navn\")
End If
Conn.Close
Set Conn = Nothing
%>

Nu for jeg bare Fejl 500

nu har du vil husket og skrive noget i db\'en

Denne kode, udskriver en QueryString (eller post-værdi), og gemmer den i databasen.

Jeg antager at getConnection() returnerer en åben database connection (ADODB.Connection), og at Databasen bruger Stored Procedures (hvilket alle burde gøre, osse i Access).

--

<% Language=\"JavaScript\"%>
<%
    var input = Request(\"navn\").Item;
    if(input == null) {
        Response.Write(\"Intet navn!\");
        Response.End();
    }

    try {
        var dbCon = getConnection();
        var sql = \"sp_addName \" + input;
        dbCon.execute(sql);
    }
    catch(exception) {
        Response.Write(\"Database fejl!\");
        Response.End();
    }
%>
Indsatte navn var: <%= input%>.

--

Hvis man IKKE vil ha\' at folk poster til siden, kan man skrive:

var method = Request.ServerVariables(\"HTTP_METHOD\");
if(method != \"GET\") {
    Response.Write(\"POST er ikke tilladt!\");
}

Så en anden ting...

Alle herinde bruger Access, ser det ud til, men hvorfor bruger i SQL statements i jeres ASP filer?

Under Forspørgelser i Access kan man lave noget der ligner Stored Procedures, som vi kender dem fra Sybase, Oracle og MS SQL.

For at få ovenstående eksempel til at virke i Access, lav da en forspørgsel ved navn \"sp_addName\", og lad den indeholde:

\"insert into names(name) values(@name);\"

--
Jonas

Jonas det eneste jeg fattede var dit navn...

Jeg har næsten fået pepsi/food løsningen til at virken,, men den dur ikke når den bliver blandet med resten af min source

Poster Hele siden:
--------------------------------------------------------------------------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/db.mdb\")
strSQL = \"select * from claner where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>
<b>

<font face=\"Verdana\" size=\"4\"><%= rs(\"navn\") %><br>
</font>
</b>
<table border=\"0\" width=\"90%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"24%\"><b><font face=\"Verdana\" size=\"2\">Tag:</font></b></td>
    <td width=\"76%\"><font face=\"Verdana\" size=\"2\"><%= rs(\"tag\") %></font></td>
  </tr>
  <tr>
    <td width=\"24%\"><b><font face=\"Verdana\" size=\"2\">Homepage:</font></b></td>
    <td width=\"76%\"><font face=\"Verdana\" size=\"2\"><a href=\"http://<%= rs(\"homepage\") %>\"><%= rs(\"homepage\") %></a></font></td>
  </tr>
  <tr>
    <td width=\"24%\"><b><font face=\"Verdana\" size=\"2\">IRC channel:</font></b></td>
    <td width=\"76%\"><font face=\"Verdana\" size=\"2\"><%= rs(\"irc\") %></font></td>
  </tr>
  <tr>
    <td width=\"24%\"><b><font face=\"Verdana\" size=\"2\">Rekrutere:</font></b></td>
    <td width=\"76%\"><font face=\"Verdana\" size=\"2\"><%= rs(\"rekrut\") %>
   
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
</font></td>
  </tr>
  <tr>
    <td width=\"24%\">
<b><font face=\"Verdana\" size=\"2\">Members: </td>
    <td width=\"76%\">
   
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db/db.mdb\")
strSQL = \"select * from brugere WHERE where navn=\'\" & Request.QueryString(\"navn\") & \"\'\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"\"
else
Do Until rs.EOF
%>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

   
   
    </td>
  </tr>
</table>

AAAAARGH !!!! enten er det utroligt svært eller også er det utroligt nemt...

jeg har skrevet \"select * from brugere WHERE where \" skriver man kun where 1 gang dur det

food4u.dk, skriv lige et svar så for du halvdelen af poitne

Øhm, man MÅ kun skrive where én gang... Skal man have flere kriterier, skal man skrive:

where noget=noget and nogetandet=nogetandet and nogettredie=nogettredie

jaja.. det var en fejl at jeg havde skrevet where 2 gange, det har jeg bare først set da jeg poster sourcen her..