webForumDet fria alternativet

Problem med kontakt form

ASP

1 svar · 788 visningar · startad av grennfox

Medlem sedan feb. 2010177 inlägg
Frågan#1

Hejsan.
Jag var inne på binero och tog deras asp kontakt form. Men får problem

SÅ här ser koderna ut.

formmail.asp:

<%
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
%>

Och så här ser koden ut för formen:

<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&ouml;r visat intresse!">
       <input name="ReplyMessage" type="hidden" id="ReplyMessage" value="Tack f&ouml;r visat intresse!
	   Vi kontaktar dig inom kort.
	   
	   Mvh
	   Företaget">
</td>
   </tr>
   <tr>
     <td align="left">&Auml;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&ouml;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">&nbsp;</td>
     <td align="left"><input type="submit" name="Submit" value="Skicka"></td>
   </tr>
 </table>
 </form>

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 :P

Medlem sedan feb. 2010177 inlägg
#2

Problemet är löst, jag gick över till php som man har lite mer koll på:P

259 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)