9 svar · 197 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.
------------------
It aint over until the fat lady sings...
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å :)
------------------
It aint over until the fat lady sings...
tror inte att det är någon mer kod som påverkar resultatet.
någon aning?
------------------
It aint over until the fat lady sings...
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]
------------------
Peter D
[Redigerat av Pace den 15 jul 2001]
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...
------------------
It aint over until the fat lady sings...
'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.
------------------
Peter D
har löst problemet. det var en liten sak som inte stämde i databasen. :)
tack för hjälpen
------------------
It aint over until the fat lady sings...
Puuhhh... tur det. ;)
Brukar vara så, ett litet sketet fel någonstans som man "har kontrollerat"...
------------------
Peter D