9 svar · 213 visningar · startad av Hazze
har ett problem.
håller på att bygga upp ett litet internt mailsystem men det kärvar lite.
när man ska läsa ett meddelande klickar man på rubriken. tyvärr är inte länken "fullbordad". det blir typ bara såhär read.asp?id=
skriver det såhär:
read.asp?id=<%=rsMess("id")%>
använder mig av chrisses script som finns på wF script. vet faktiskt inte vad som kan vara fel.
Kan du visa lite mer kod?
inkorgen:
<% Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE till ='" & Session("namn") & "' ORDER BY datum DESC"
rsMess.Open SQL, Databas
If rsMess.EOF then
Response.Write "Du har inga meddelanden "
else
Do while NOT rsMess.EOF %>
utkorg:
<% if request.form("till")<>"" and request.form("meddelande")<>"" then
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "INSERT INTO meddelande ([fran], [datum], [meddelande], [rubrik], [till], [status]) VALUES('" & Session("namn") & "',#" & now & "#,'" & Request.Form("meddelande") & "','" & Request.Form("rubrik") & "','" & Request.Form("till") & "','Oläst')"
Databas.Execute(SQL)
%>
allt finns i wf script också 
Är det hela koden? Jag tycker mig inte hitta några direkta fel.
Jag tror att det är någon annan kod som spökar...
[r]Kollade precis igenom originalscriptet och är osäker... hur ser din databas ut? Det är inget som är fel där?[/r]
hmm.. kan väl knappast vara något här:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("mess.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Dim ID
ID = Request.QueryString("id")
Addera = "SELECT * FROM meddelande where id = " & ID & " "
set RS = Connect.execute(Addera)%> <% End If %>
sen finns det ingen mer kod...
'Set Connect = Server.CreateObject("ADODB.Connection")
'Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("mess.mdb")
[b]Set RS = Server.CreateObject("ADODB.Recordset")[/b]
Dim ID
ID = Request.QueryString("id")
Addera = "SELECT * FROM meddelande where id = " & ID & " "
set RS = Connect.execute(Addera)
Den fetmarkerade raden kan du ta bort, den behövs inte. Jag har faktiskt ingen aning vad som kan vara fel... du får inget felmeddelande eller så, bara en tom sträng?
I så fall kan du testa att skriva ut lite mer info från databasen på samma ställe som din länk. Om det fältet också är tomt så är det säkerligen något fel, annars är fältet tomt.
