Det är jäkligt svårt att säga vad som buggar när du inte säger det själv
Får du felmmedelande? vilka symptom får du? vilka vill du ha?
Problemet är väl att du uppdaterar databasen, men du uppdaterar den med ingenting... vad vill du uppdatera?
14 svar · 228 visningar · startad av crisse6
vad f*n är fel på detta skript, har markerat det den buggar på med fetstil:
<%
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 id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2
If rsMess.EOF then
%>
Hittade inte meddelandet!
<%
%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><%=rsMess("meddelande")%></font></td>
</tr>
</table>
<% rsMess.Close %>
[b]<%
SQL = "UPDATE meddelande WHERE id =" & request.querystring("id") & ";"
Databas.Execute(SQL)
%>[/b]
Det är jäkligt svårt att säga vad som buggar när du inte säger det själv
Får du felmmedelande? vilka symptom får du? vilka vill du ha?
Problemet är väl att du uppdaterar databasen, men du uppdaterar den med ingenting... vad vill du uppdatera?
jag vill att den fyller i "Läst" i fältet status.... borde gå, men hur, detta ska ske när man läst det dåra!
Asså det e syntax fel i UPDATE satsen men jag e för trött får att se vad det e för fel
Och testa detta:
SQL = "UPDATE meddelande SET status = "Läst" WHERE id =" & request.querystring("id")
fick vid test av din kod Vide detta meddelande:
Kompileringsfel i Microsoft VBScript error '800a0401'
Slut på programsats förväntas.
/groda/lasmess.asp, line 213
SQL = "UPDATE meddelande SET status = "Läst" WHERE id =" & request.querystring("id")
---------------------------------------^
Ett tips, använd aldrig Update, använd Insert så lär det funka.
Mvh
Jörgen som har agg mot Update kommando
Felet på Vides kod var bara att det var " istället för ':
SQL = "UPDATE meddelande SET status = [b]'[/b]Läst[b]'[/b] WHERE id =" & request.querystring("id")
det var så sant, M@rtin
mitt meddelande tjänst funkar bättre än nånsin! men ett problem vid borttagning, varför får jag detta meddelande när jag med querystring försöker ta bort ett visst id..
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.
/groda/raderamess.asp, line 185
och här är koden (ja vet, nu tänker ni, rad 185 finns ju inte på ett sånt litet skript, det är bara för att jag har lagt i denna kod i en sida så att det ser snyggt ut )
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "DELETE FROM meddelande WHERE ID = '" & Request.QueryString("ID") & "'"
Databas.Execute SQL
%>
funkar på andra ställen av sidan
Hehe.. samma sak där juh.. så här ska det se ut:
SQL = "DELETE FROM meddelande WHERE id =" & request.querystring("id")
tackar igen M@rtin, funkar jättbra
en annan sak jag undrar över, vet ej om det hör hit, men hur gör man ett popup window i asp? Jag tänkte ha så att man kan klicka på personens namn och vips få upp en liten ruta där all info jag vill det ska stå om personen... vore bra att ha
Har inget med asp att göra utan det är javascript:
<a href="javascript: window.open('sida.asp','','status=yes,scrollbars=no,width='300',height='400');">Popup</a>
men om man ska ha <%=rsMess("id")%> eller ngt liknande, är det bara att lägga till?
Ett tips, använd aldrig Update, använd Insert så lär det funka.
jorgen, utveckla gärna detta. ska bli mycket intressant.
håller med @nders där, vad är ditt problem med UPDATE, jorgen? Funkar ju bra, bara man skriver plupparna rätt