Der prøves lige en gang til:
Denne asp`er kalder jeg for findefrem.asp
Med den kan der søges i databasen og udskrives søgeresultat
med et link til den enkelte bruger. Spørgsmålet er nu, hvorledes
kan
jeg få sendsvar.asp (se indholdet af strLink nedenfor), til at
"overtage" lige præcis det brugerID, som der klikkes på således,
at et svar kun går til denne modtager ?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("bruger.mdb")
Conn.Open DSN
strSQL = "select * from brugere where navn= '" &
request.form("navn") & "' AND tekst= '" & request.form("tekst") &
"' AND type= '" & request.form("type") & "'"
Set rs = Conn.Execute(strSQL)
'Gennemløber hele indholdet
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strnavn=rs("navn")
strLink = "<a href='sendsvar.asp?id=" & rs("UserId") & "'>" &
strnavn & "</a>"
'Udskriver link m.m.
Response.Write "<li>" & strLink & "</li>" & ". " & rs("type") &
". " & rs("tekst") & " . " & rs("mere data") & ". " & rs("mere
data") & "<hr><br>"
rs.MoveNext
Loop
Else
Response.Write "Bla Bla Bla Bla"
End If
'Er dette mon rigtigt ?: Session("UserID") =
Request.Querystring("UserID")
' Hvorledes gør jeg det aktuelle UserID tilgængeligt i den næste
asp`er
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
------------------------
sendsvar ser således ud:
Først formularen i en lidt forkortet udgave.
<form action="sendsvar.asp" method="POST">
<table border="0" bgcolor="#ffffff" >
<textarea name="svartekst" rows="8" cols="31"></textarea>
<p><input type="submit" value="Send indholdet">
<input type="reset" value="Slet indholdet">
</form>
<%
' Endnu en mulighed jeg har prøvet: strUserID =
Trim(Request.UserID("UserID"))
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("styr.mdb")
Conn.Open DSN
'Også en afprøvet metode:request.querystring("PostID")
'Og endnu en:Session("PostID") = Request.Querystring("UserID")
'En mere:Response.Write Session("UserID")
'Er det her der skal stå noget, for at fange det konkrete
brugerID fra findefrem.asp ?
Conn.Execute("SELECT * FROM brugere WHERE UserID = ('"&
Request.Querystring("UserID") &"')")
'Jeg ved godt der er noget "mismacth" mellem datatypes. Det er
den fejlmelding jeg får når jeg
'kører filerne.Det er dog nok ikke det der er hovedproblemet
eller.. ?
Conn.Execute("INSERT INTO postbox (komtar) VALUES('"&
request.form("svartekst") & "')")
Conn.Close
Set Conn = Nothing
%>
<hr>
</center>
</body>
</html>
Hvis du fangede hvad problemet er og kender svaret, ville det
være fedt hvis du gav "ord" fra dig.
Det er muligt at der er nogle enkelte syntaksfejl i ovenstående.
Hvis der er det, så se bort fra det.De stammer så fra kopieringen
til denne tekstfil. Det hele virker fint bortset fra. . .Det er
ikke det der er problemet. Problemet er et metodeproblem. Og jeg
er jo ikke nogen høg til det her (endnu).
Steen majet Stædig
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials