6 svar · 393 visningar · startad av ade
Hej, har hittat ett gammal formuär på min dator som är uppbyggd med cdosys. Jag minns att det har fungerat både på web10 och gate9 som jag har.
I veckan har jag även skaffat Gate9 och jag hittar inte vilka komponenter som finns installerade på deras server. Men nu till koden och se om det är något fel på den.
Skicka.asp
<%
' Skickar mailet
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then
Set cdoMail = CreateObject("CDO.Message")
cdoMail.From = Request.Form("email")
cdoMail.To = "info@direktdesign.se"
cdoMail.Subject = Request.Form("subject")
cdoMail.HTMLBody = Request.Form("message")
cdoMail.Configuration.Fields.Update
cdoMail.Send
Set cdoMail = Nothing
End If
%>
<tr>
<td height="739" colspan="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="650" height="739" valign="top" bgcolor="f9f9f9" style="padding-left: 15px; padding-right: 15px;">
<p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
Mailet har blivit skickat! Vi kontaktar dig så snart vi kan!</font></p></font>
När jag har skickat mailet så står det att Mailet har blivit skickat! Men det kommer inte fram! Varken på web10 som har cdo eller gate9 där jag är osäker.
Tacksam för svar!
Jag skulle testat att skicka ett testmail direkt.
Set cdoMail = CreateObject("CDO.Message")
cdoMail.From = "info@direktdesign.se"
cdoMail.To = "info@direktdesign.se"
cdoMail.Subject = "Kommer..."
cdoMail.HTMLBody = "...detta mail fram?"
cdoMail.Configuration.Fields.Update
cdoMail.Send
Set cdoMail = Nothing
Lite OT kanske, men postat ändå. :)
En ful-lösning för att kolla vilka mailkomponenter som finns tillgängliga på servern:
[red]<html><head><title> Checking components.. </title><head>
<body>
<%
ErrorCdonts = True
ErrorJmail = True
ErrorAspmail = True
ErrorCdoMail = True
'// CDONTS
On Error Resume Next
Set Cdonts = Server.CreateObject("CDONTS.NewMail")
If err.number <> 0 Then ErrorCdonts = False
err.clear
Set Cdonts = Nothing
'// JMAIL
On Error Resume Next
Set Jmail = Server.CreateObject("JMail.Message")
If err.number <> 0 Then ErrorJmail = False
err.clear
Set Jmail = Nothing
'// ASPMAIL
On Error Resume Next
Set Aspmail = Server.CreateObject("SMTPsvg.Mailer")
If err.number <> 0 Then ErrorAspmail = False
err.clear
Set Aspmail = Nothing
'// CDOMAIL
On Error Resume Next
Set cdoMail = CreateObject("CDO.Message")
If err.number <> 0 Then ErrorCdoMail = False
er.clear
Set cdoMail = Nothing
'// RESULTAT
Response.Write ""&_
"<br>CDO-NTS: "& ErrorCdonts &_
"<br>JMail: "& ErrorJmail &_
"<br>ASPMail: "& ErrorAspmail &_
"<br>CDO-Message: "& ErrorCdoMail
%>
</body>
</html>[/red]
Humm jag bytte nu till denna kod för en kompis har sagt att den ska fungera där!
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gate9.se"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "email"
cdoMessage.To = "info@direktdesign.se"
cdoMessage.Subject = "subject"
cdoMessage.HTMLBody = "message"
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Skickade nyss, får se om det kommer fram!
Jag har fått problem!!
Mailet kommer fram men varken meddelande, namn eller telenummer kommer fram. Endast mailet sen är det tomt.
Kontakta.asp
<%
IF Len(Session("kontakta_mig")) <> 0 then
If Len(Session("falt")) <> 0 then
uppg = Split(Session("falt"),"$|$")
mess = uppg(0)
namn = uppg(2)
epost = uppg(1)
hemsida = uppg(3)
Session("falt") = ""
End If
felet = Session("kontakta_mig")
Session("kontakta_mig") = ""
End If
IF len(felet) <> 0 then
%>
Skicka.asp
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gate9.se"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = Request.Form ("epost")
cdoMessage.To = "info@direktdesign.se"
cdoMessage.Subject = Request.Form ("Mail Från Hemsidan")
cdoMessage.HTMLBody = request.form("mess")
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Hur ser formuläret ut då?
Har du verkligen ett fält som heter Mail från hemsidan??
<td colspan="2"><font size="1" face="Verdana">Ditt Meddelande:<font color="#FF0000">*</font></font></td>
</tr>
<tr>
<td colspan="2"><textarea name="meddelande" rows="8" cols="58" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"><%=message%></textarea></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Namn: <font color="#FF0000">*</font></font></td>
<td><input type="text" size="35" name="namn" value="<%=namn%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
</tr>
<tr>
<td><font size="1" face="Verdana">E-Mail: <font color="#FF0000">*</font></font></td>
<td><input type="text" size="35" name="epost" value="<%=epost%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Telefon: </font></td>
<td><input type="text" size="35" name="hemsida" value="<%=hemsida%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
</tr>
<tr>
<td></td>
<td> <input type="submit" name="submit" value="Skicka iväg" style="font-family: verdana; font-size: 10px; border: #000000 1px solid">
</td>
</tr>
</table>
</form>