HJÆLP !!!
Jeg vil gerne have at mine brugere, når de sender en mail i mit internet postkasse system, skal have en mail om at de har fået post. de skal modtage en rigtig mail hvor der står at der er kommet post...Jeg har denne kode..
<%
if request("send") = "besked" then
' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''", "''" )
END FUNCTION
' Hent data fra formular
strmodtager = Request( "modtager" )
stremne = Request( "emne" )
strdato = Request( "dato" )
strbesked = Request( "besked" )
strafsender = Request( "afsender" )
stremail = Request( "email" )
' Connection til database.
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("mails.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' ... Nu gemmer vi lige oplysningerne i databasen
IF Request.Servervariables("Content_Length") > 0 THEN
sql = "INSERT INTO mails (modtager,emne,dato,besked,afsender) VALUES ('" & request("modtager") & "','" & request("emne") & "','" & request("dato") & "','" & request("besked") & "','" & request("afsender") &"')"
con.execute(sql)
' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet
Response.Write "<font size=3 face=arial color=000000>Du har nu afsendt dit brev korrekt !</font>"
response.write "<br>"
response.write "<p><a href=indbakke.asp><font size=2 face=Arial>Tilbage til Indbakke oversigt</font></a></p>"
END IF
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.mobisend.dk"
JMail.sender = "mail@mobisend.dk"
JMail.subject = "Du har modtaget post på WebCodes.dk"
JMail.AddRecipient stremail
'Thomas Faugsted skriver udtrækket til body delen i mailen
JMail.Body = "Der er kommet post fra : "& strafsender & vbcrlf
JMail.Body = JMail.Body & "E-mail adressen: " & stremail & VbCrLf & VbCrLf
JMail.Body = jmail.body & "Mangler du asp eller et fedt design til hjemmesiden "
JMail.Body = jmail.body & " ring 40 61 64 31 for nærmere oplysninger..." & vbcrlf
'Her bliver mailen med oplysningerne i´s prioritet bestemt
' 1 - højeste (Haster / Vigtigt) (Rødt tegn )
' 2 - normal
' 3 - lavest
JMail.Priority = 1
JMail.Execute
Set JMail = Nothing
Conn.Close
Set Conn = Nothing
END IF %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Postsystem er udviklet af Thomas Faugsted</title>
</head>
<body bgcolor="#000066" link="#000080" vlink="#000080" alink="#000080" background="sand.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#000066">
<p align="center"><b><font size="2" face="Arial" color="#FFFFFF">Skriv
en besked til en af de andre brugere</font></b></td>
</tr>
<tr>
<td width="100%" height="15"></td>
</tr>
<tr>
<td width="100%"><form action="ny_besked.asp?send=besked" method="POST" id="form1">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Arial" size="2">Nu har vi givet dig muligheden
for sende privat post mellem jer brugere og vi ser frem til at dette kan
foregå på en ordentlig måde.</font></td>
</tr>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%" height="10"></td>
</tr>
<tr>
<td width="100%"><font face="Arial" size="2">Modtager</font></td>
</tr>
<tr>
<td width="100%"><font size="2" face="Arial" color="#000000">
</font><select name="modtager">
<%'Hiver alle brugerne ud i en select boks
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("brugere.mdb")
set rs = Conn.Execute("select * from brugere")
Do until rs.eof
brugernavn = rs("brugernavn")
%><option value="<%=brugernavn%>"><%=brugernavn%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
<td bordercolor="#ffffff">
</td>
</tr>
<tr>
<td width="100%"><font size="2" face="Arial" color="#000000"><input type="hidden" name="afsender" size="20" value="<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("brugere.mdb")
strSQL = "SELECT * FROM brugere where brugernavn='" & session("brugernavn") & "'"
set rs = conn.execute(strsql)
Response.Write rs("brugernavn") & ""
%>"></font></td>
</tr>
<tr>
<td width="100%"><font color="#000000" size="2" face="Arial">Emne</font></td>
</tr>
<tr>
<td width="100%"><font size="2" face="Arial" color="#000000"><input type="text" name="emne" size="20"></font></td>
</tr>
<tr>
<td width="100%"><input type="text" name="email" size="20" value="<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("mails.mdb")
strsql = "select * From mails where email='" & request("modtager") & "'"
set rs = conn.execute(strsql)
Response.Write rs("email") & ""
%>"></td>
</tr>
<tr>
<td width="100%"><input type="hidden" name="dato" size="20" value="<%response.write now %>"></td>
</tr>
<tr>
<td width="100%"><font color="#000000" face="Arial" size="2">Besked</font></td>
</tr>
<tr>
<td width="100%"><textarea rows="7" name="besked" cols="61">Skriv din besked her</textarea></td>
</tr>
<font size="2" face="Arial">
</tr>
</font>
<tr>
<td width="100%"><font size="2" face="Arial" color="#000000"><input type="submit" value="Send brev">
</font>
</td>
</tr>
<tr>
<td width="100%" height="20">
</td>
</tr>
<tr>
<td width="100%"><b><font face="Arial" size="2"><!--webbot bot="HTMLMarkup" startspan -->
<!--webbot bot="HTMLMarkup" endspan -->
</font></b>
</td>
</tr>
</table>
<p>
<font size="2" face="Arial" color="#000000">
<br>
</font></p>
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
---------------------
kan nogen hjælpe..... fejlen ligger i linie 155
