Problem med kontakt form

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • grennfox
    Medlem
    • 2010-02-03
    • 191

    #1

    Problem med kontakt form

    Hejsan.
    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
    %>
    Och så här ser koden ut för formen:

    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&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
  • grennfox
    Medlem
    • 2010-02-03
    • 191

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

    Comment

    Working...