Meddelande problem?

Online_doMedlem sedan mars 2001136 inlägg

27 mars 2001 11:19#1

Hej
Jag har en meddelande tjänst på min site. Problemmet är att när man ska skicka meddelande så kommer det upp i webläsaren om ett problem har uppståt.

Det står att den väntar sig att ett objekt ska komma eller något liknande. Vad är felet?

------------------
What is he doing?...

ZandrisMedlem sedan feb. 200160 inlägg

27 mars 2001 11:26#2

Hur ser meddelandet ut?
Har du skapat tjänsten?
MVH Zandra

Online_doMedlem sedan mars 2001136 inlägg

27 mars 2001 11:30#3

nopp. crisse

------------------
What is he doing?...

ERR0RMedlem sedan dec. 2000596 inlägg

27 mars 2001 14:01#4

Låter mer som ett javascript fel.

ett objekt förväntas ?

PallemanMedlem sedan dec. 2000557 inlägg

27 mars 2001 17:20#5

Kan du inte visa oss lite kod...

------------------
// Palleman
www.wiicom.nu/palle

Online_doMedlem sedan mars 2001136 inlägg

27 mars 2001 20:23#6

oki, jag för se här:
________________________________
mejl.asp
-------------
<%
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("username") & "' ORDER BY datum DESC"
rsMess.Open SQL, Databas
If rsMess.EOF then
Response.Write "Du har inte ett enda grodmejl "
else
Do while NOT rsMess.EOF

%>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="157" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Ämne:</td>
<td width="154" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Från:</td>
<td width="150" style="border-right-width:1; border-bottom-width:1; border-right-color:black; border-bottom-color:black; border-right-style:solid; border-bottom-style:solid;">Skickat datum och tid:</td>
<td width="109" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;">Status:</td>
</tr>
<tr>
<td width="157" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><a href="lasmess.asp?id=<%=rsMess("id")%>"><%=rsMess("rubrik")%></a> </td>
<td width="154" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a> </td>
<td width="150" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><%=rsMess("datum")%> </td>
<td width="109" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><%=rsMess("status")%> </td>
<td width="109" style="border-right-width:0; border-right-color:black; border-right-style:solid;"> <a href="raderamess.asp?ID=<%=rsMess("ID")%>">Ta bort!</a> </td>
</tr>
</table>

<%
rsMess.MoveNext
Loop
rsMess.CLose
%>
<% End If %>
 
<a href="skickamess.asp">Skriv ett meddelande</a>
------------------------------------
lasmess.asp
---------------
<%
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 %>

<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
Ämne: <%=rsMess("rubrik")%> 
Från: <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a> 
Meddelande: 
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><%=rsMess("meddelande")%></td>
</tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>
----------------------------------
skickamess.asp
------------------
<% 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("username") & "',#" & now & "#,'" & Request.Form("meddelande") & "','" & Request.Form("rubrik") & "','" & Request.Form("till") & "','Oläst')"
Databas.Execute(SQL)

Meddelandet är skickat!
<% else %>
<body onLoad="teckenKvar()">
<form name="meddelande" method="post" action="skickamess.asp">

Personens användarnamn: 
<input type="text" name="till" value="<%=request.querystring("till")%>" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;">

Ämne på ditt mejl: 
<input type="text" name="rubrik" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;">

Messet: 
<textarea name="meddelande" rows="16" cols="80" maxlenght="999" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></textarea>
<input type="text" name="ticker" value="1000" size="3" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"
disabled> tecken kvar. 
 <input type="submit" value="Skicka!" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></form>
<% End If %>
---------------------------------------
raderamess.asp
----------------------
<%
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
%>
<a href="mejl.asp">Tillbaka</a>
-------------------------------
Databasen: mess.mdb

------------------
What is he doing?...