5 svar · 167 visningar · startad av Online_do
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?...
Hur ser meddelandet ut?
Har du skapat tjänsten?
MVH Zandra
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;"><p><font
face="Verdana" size="1" color="black"><b>Ämne:</b></font></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;"><p><font
face="Verdana" size="1" color="black"><b>Från:</b></font></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;"><p><font
face="Verdana" size="1" color="black"><b>Skickat datum och tid:</b></font></td>
<td width="109" style="border-bottom-width:1; border-bottom-color:black; border-bottom-style:solid;"><p><font
face="Verdana" size="1" color="black"><b>Status:</b></font></td>
</tr>
<tr>
<td width="157" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><a href="lasmess.asp?id=<%=rsMess("id")%>"><%=rsMess("rubrik")%></a></font> </td>
<td width="154" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a></font> </td>
<td width="150" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><%=rsMess("datum")%></font> </td>
<td width="109" style="border-right-width:1; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"><%=rsMess("status")%></font> </td>
<td width="109" style="border-right-width:0; border-right-color:black; border-right-style:solid;"><p><font face="Verdana" size="1" color="black"> <a href="raderamess.asp?ID=<%=rsMess("ID")%>">Ta bort!</a></font> </td>
</tr>
</table>
<br>
<%
rsMess.MoveNext
Loop
rsMess.CLose
%>
<% End If %>
<br>
<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 %>
<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 %>
<%
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">
<p>
<font face="Verdana" size="1">Personens användarnamn:</font><br>
<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;"></p>
<p>
<font face="Verdana" size="1">Ämne på ditt mejl:</font><br>
<input type="text" name="rubrik" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></p>
<p>
<font face="Verdana" size="1">Messet:</font><br>
<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></p>
<font face="Verdana" size="1"><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.</font><br>
<br><input type="submit" value="Skicka!" style="font-family:Verdana; font-size:10; border-width:1; border-color:black; border-style:solid;"></p></form></font>
<% 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
ID | räknare
fran | text
till | text
datum | datum/tid
meddelande | PM
status | text
rubrik | text
----------------------------
ett problem hittade jag själv. Där fanns ingen kompis sida som det den letar ibland efter.
Jag vet inte hur den ska se ut.
Hoppas detta räcker annars får ni fråga igen...
------------------
What is he doing?...
