Hejsan.
Jag var inne på binero och tog deras asp kontakt form. Men får problem
SÅ här ser koderna ut.
formmail.asp:
Och så här ser koden ut för formen:
Men när jag testar den så får jag detta error:
Persits.MailSender.4 error '800a0006'
554 5.7.1 <info@mittdämn.se>: Relay access denied
/formmail.asp, line 128.
Och på linje 128 så är det den här koden:
mySmartMail.Send
Jag tog kontakt med binero för jag förstod att det var något problem med smtp servern.
Och som svar fick jag detta:
Du måste autensiera dig mot servern för att kunna skicka mail genom den.
Men jag fattar inte hur jag ska kunna göra de?
Hoppas jag kan få lite hjälp med detta. Känns som man har gett sig ut på lite för djupt vatten denna gång
Jag var inne på binero och tog deras asp kontakt form. Men får problem
SÅ här ser koderna ut.
formmail.asp:
HTML Code:
<%
Dim strSender, strRecipient, strSubject, strMessage, strSenderName, strReturnAddress, strUseExtraText
Dim strCity, strPhone, strZip, strAddress, strExtra,strFax,strMobile, mySmartMail, strCompany, strRecipientName
Dim strReply, strReplySubject, strReplyMessage, SmartMail, strWebsite, strAuth, strMailserver
strRecipient = "info@mittdomän.se"
strRecipientName= "mittnamn"
'Ange utgående mailserver nedan
strMailserver = "smtp.mittdämn.se"
strSender = Request("Email")
strSubject = Request("Subject")
strMessage = Request("Message")
strSenderName = Request("Name")
strCompany = Request("Company")
strCity = Request("City")
strPhone = Request("Phone")
strFax = Request("Fax")
strMobile = Request("Mobile")
strZip = Request("Zip")
strAddress = Request("Address")
strUseExtraText = Request("Extra")
strReturnAddress = Request("ReturnAddress")
strReply = Request("Reply")
strReplySubject = Request("ReplySubject")
strReplyMessage = Request("ReplyMessage")
strWebsite = Request("Website")
strAuth = Request("Auth")
strExtra = ""
IF strUseExtraText = "yes" or strUseExtraText = "1" THEN
IF strCompany <> "" THEN
strExtra = strExtra & "Företag: " & strCompany & vbcrlf
END IF
IF strSenderName <> "" THEN
strExtra = strExtra & "Namn: " & strSenderName & vbcrlf
END IF
IF strAddress <> "" THEN
strExtra = strExtra & "Adress: " & strAddress & vbcrlf
END IF
IF strZip <> "" THEN
strExtra = strExtra & "Postnummer: " & strZip & vbcrlf
END IF
IF strCity <> "" THEN
strExtra = strExtra & "Stad: " & strCity & vbcrlf
END IF
IF strPhone <> "" THEN
strExtra = strExtra & "Telefon: " & strPhone & vbcrlf
END IF
IF strFax <> "" THEN
strExtra = strExtra & "Fax: " & strFax & vbcrlf
END IF
IF strMobile <> "" THEN
strExtra = strExtra & "Mobil: " & strMobile & vbcrlf
END IF
IF strSender <> "" THEN
strExtra = strExtra & "E-post: " & strSender & vbcrlf
END IF
IF strWebsite <> "" THEN
strExtra = strExtra & "Hemsida: " & strWebsite & vbcrlf
END IF
IF strSubject <> "" THEN
strExtra = strExtra & "Ärende: " & strSubject & vbcrlf
END IF
IF strMessage <> "" THEN
strExtra = strExtra & "Meddelande: " & vbcrlf & vbcrlf
END IF
End If
IF strSender = "" OR strRecipient = "" OR Session("AUTH") <> strAuth THEN
IF strSender = "" THEN
Response.Write("• Avsändaradress saknas.")
END IF
IF strRecipient = "" THEN
Response.Write("• Mottagaradress saknas.")
END IF
IF Session("AUTH") <> strAuth THEN
Response.Write("• Felaktig kod.")
END IF
ELSE
Set mySmartMail = Server.CreateObject("Persits.MailSender")
mySmartMail.Host = strMailserver
mySmartMail.FromName = strSenderName
mySmartMail.From = strSender
mySmartMail.AddAddress strRecipient, strRecipientName
mySmartMail.Subject = strSubject
mySmartMail.Body = strExtra & strMessage
mySmartMail.Send
if Err<>0 then
Response.Write("<b>FEL:</b> " & Err.description)
else
IF strReply = "yes" or strReply = "1" THEN
Set SmartMail = Server.CreateObject("Persits.MailSender")
SmartMail.Host = strMailserver
SmartMail.FromName = strRecipientName
SmartMail.From = strRecipient
SmartMail.AddAddress strSender, strSenderName
SmartMail.Subject = strReplySubject
SmartMail.Body = strReplyMessage
SmartMail.Send
if Err<>0 then
Response.Write("<b>FEL:</b> " & Err.description)
END IF
END IF
IF strReturnAddress = "" THEN
Response.Write("• Tack, e-post har skickats till "& strRecipient & ".")
ELSE
Response.Redirect(strReturnAddress)
END IF
end if
END IF
%>
HTML Code:
<span class="title" align="center"></span> <br><br><asp:Label class="main" id="lblResponse" runat="server"/> <form name="form" method="post" action="formmail.asp"> <table width="400" border="0" cellspacing="0" cellpadding="5"> <tr> <td colspan="2" align="left"><strong>Kontakta oss! </strong> <input name="Extra" type="hidden" id="Extra" value="1"> <input name="ReturnAddress" type="hidden" id="ReturnAddress" value="tack.htm"> <input name="Reply" type="hidden" id="Reply" value="1"> <input name="ReplySubject" type="hidden" id="ReplySubject" value="Tack för visat intresse!"> <input name="ReplyMessage" type="hidden" id="ReplyMessage" value="Tack för visat intresse! Vi kontaktar dig inom kort. Mvh Företaget"> </td> </tr> <tr> <td align="left">Ärende:</td> <td align="left"><input name="Subject" type="text" id="Subject" size="40" maxlength="50"></td> </tr> <tr> <td width="96" align="left">Namn:</td> <td width="284" align="left"><input name="Name" type="text" id="Name" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Företag:</td> <td align="left"><input name="Company" type="text" id="Company" size="40" maxlength="50"></td> </tr> <tr> <td align="left">E-post:</td> <td align="left"><input name="Email" type="text" id="Email" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Adress:</td> <td align="left"><input name="Address" type="text" id="Address" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Postnummer:</td> <td align="left"><input name="Zip" type="text" id="Zip" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Ort:</td> <td align="left"><input name="City" type="text" id="City" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Telefon:</td> <td align="left"><input name="Phone" type="text" id="Phone" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Fax:</td> <td align="left"><input name="Fax" type="text" id="Fax" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Mobil:</td> <td align="left"><input name="Mobile" type="text" id="Mobile" size="40" maxlength="50"></td> </tr> <tr> <td align="left">Hemsida:</td> <td align="left"><input name="Website" type="text" id="Website" size="40" maxlength="50"></td> </tr> <tr> <td align="left" valign="top">Meddelande:</td> <td align="left"><textarea name="Message" cols="40" rows="8" wrap="VIRTUAL" id="Message"></textarea></td> </tr> <tr></tr> <tr></tr> <tr> <td align="left"> </td> <td align="left"><input type="submit" name="Submit" value="Skicka"></td> </tr> </table> </form>
Persits.MailSender.4 error '800a0006'
554 5.7.1 <info@mittdämn.se>: Relay access denied
/formmail.asp, line 128.
Och på linje 128 så är det den här koden:
mySmartMail.Send
Jag tog kontakt med binero för jag förstod att det var något problem med smtp servern.
Och som svar fick jag detta:
Du måste autensiera dig mot servern för att kunna skicka mail genom den.
Men jag fattar inte hur jag ska kunna göra de?
Hoppas jag kan få lite hjälp med detta. Känns som man har gett sig ut på lite för djupt vatten denna gång
Comment