12. november 2005 - 20:33Der er
58 kommentarer og 1 løsning
Request.ServerVariables
Jeg er ved at lave et afstemnings/kommentar script til mine billeder og i den forbindelse kan jeg ikke få script til at huske sti/id efter login!!!
Ønsker man at stemme kommer man til et popup window som checker om man er logget på : Hvis ja kommer man til vote.asp ( her er der ingen problemer). hvis nej kommer man til login.asp - derefter til vote.asp Her tabte den så ID'et på billedet!!!
Jeg mener (har prøvet alt hvad jeg kunne hitte på) det er her på login siden at action skal ændres til et eller andet!!!
Jeg har tilpasset den til script så den ser sådan ud <form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?rid=<%=Session("id")%>"> men den virker ikke!!
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.
/upload/vis.asp, line 62
...........Vis.asp...........
<% dim mode, id strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("billeder.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN
id = Request("rid")
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("foto.mdb") strUpdate = "UPDATE tekst SET hits = hits + 1 WHERE id = "& request.querystring("rid") &"" Conn.Execute(strUpdate) strSQL = "SELECT * From tekst where id = " & id Set rs = myConn.Execute(strSQL)%>
<%' HER ER VISNING SIDEN Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("foto.mdb") strSQL = "Select * from kommen where kategori="&request.querystring("rid") set rs = Conn.execute(strSQL)
if rs.EOF then Response.write "" else Do Until rs.EOF dim kategori kategori = rs("kategori") %> <b>Dato:</b> <%=RS("kommendato")%><br> <b>Indsendt af:</b> <%=RS("MEMBER_ID")%><br> <b>Kommentar:</b> <%=RS("besked")%><br>
<hr align="left"> <div align="left"><br></div> <%RS.MoveNext Loop end if
Conn.Close Set Conn = Nothing%> </td> </tr> <tr>
<td>
<%' HER ER FORMSIDEN DBPATH = "DBQ=" & Server.MapPath("billeder.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DBPATH
If Request.QueryString("mode") = "new" Then navn = Request.Form("navn") besked1 = Request.Form("besked") vote=Request.Form("vote") besked1 = Replace(besked1, "'", "''") besked1 = Replace(besked1, vbCrLf, "<br>") besked = besked1 kategori=request.querystring("rid") If navn="" Or besked="" then Response.Write "<b>Du skal udfylde alle felter!</b>" Else
Det er når jeg uploader et billedet kommer det til at hedde eks. original/9KG.jpg Bagefter laver script det om til to størrelser \100\ + \600\ hvorefter jeg skal have fjernet original/ for at få navnet på billedet!!!
Det virker godt nok, men om det er den rigtig måde det er lavet på er ikke sikker :o)
Jamen alle billeder virker, det er bare lige så snart jeg skal logge mig på og den viderstille mig til vote.asp den taber billed ID eks. vote.asp?rid=33
If Len(intUID) Then ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre Session("MEMBER_ID") = intUID response.redirect "vote.asp?rid="&request.querystring("rid")& "&t=" & request("t")
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.