Jag är ingen höjdare på ASP så därför laddar jag ner färdiga script. Nu har jag fått problem med gruvsjös kontaktsformulär. När man ska skicka em fråga så kommer detta fram:
''Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/salltun/salltun.tk/kontakta.asp, line 63
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.''
Vad är det som är fel? Jag använder mig utav Brinkster, om det är till någon hjälp. Kan även skicka hela scriptet:
<%If Request.QueryString("do") = "skicka" Then
Namn = Request.Form("namn")
Mail = Request.Form("mail")
Arende = Request.Form("arende")
Webb = Request.Form("hemsida")
Msg = Replace(Request.Form("msg"), vbCrLf, "<BR>" & vbCrLf)
Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "rixtele.com"
SmartMail.SenderAddress = Mail
SmartMail.Recipients.Add "denis_salltun@hotmail.com"
SmartMail.Subject = "Kontakta mig!"
Body = "<font face=verdana size=1>"
Body = Body & "<b>Meddelande via hemsidan</b><br>"
Body = Body & "------------------------------------------<br>"
Body = Body & "<b>Skickades:</b> " & Now & "<br>"
Body = Body & "<b>Namn: </b> " & Namn & "<br>"
Body = Body & "<b>E-mail: </b> " & Mail & "<br>"
Body = Body & "<b>Hemsida: </b> " & Webb & "<br>"
Body = Body & "<b>Ärende: </b> " & Arende & "<br>"
Body = Body & "------------------------------------------<br>"
Body = Body & Msg & "<br>"
Body = Body & "</font>"
SmartMail.Body = Body
SmartMail.Charset = "iso-8859-1"
SmartMail.ContentType = "text/html"
SmartMail.SendMail
If Err.Number<>0 then
Response.Write "<b>Nåt blev fel! Försök om en stund igen!</b>"
Else
Response.Write "<tr><td colspan=3><img src=bilder/dot2.gif></td></tr>"
Response.Write "<tr><td colspan=3>Tackar <b>" & Namn & "</b>! Ditt meddelande besvaras så fort som möjligt!!</td></tr>"
End if
End If%>