Välkommen att kontakta oss på Nimax om du har några
frågor om våra produkter, så återkommer vi inom kort.
|
Eller kontakta oss på adress: NIMAX AB, Alpvägen 17,
168 65 BROMMA. Tel: 08-29 67 66 Fax: 08-28 33 92
|
<%
If request("submit") <> "" THEN
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.shared.songnetworks.se"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "nimax@nimax.se"
objCDOSYSMail.To = "nimax@nimax.se"
objCDOSYSMail.Subject = "Nimax kontaktformulär"
objCDOSYSMail.TextBody = "Kontaktuppgifter:" & "" & vbcrlf&_
"" & "" & vbcrlf&_
"Namn: " & Request.Form("Namn") & "" & vbcrlf&_
"Företag: " & Request.Form("Foretag") & "" & vbcrlf&_
"Telefon: " & Request.Form("Telefonnummer") & "" & vbcrlf&_
"Fax: " & Request.Form("Fax") & "" & vbcrlf&_
"E-post: " & Request.Form("E-post") & "" & vbcrlf&_
"Till: " & Request.Form("Attention") & "" & vbcrlf&_
"Meddelande: " & Request.Form("Meddelande")
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Response.Write("Meddelandet är nu skickat.")
Else
%>
|
<%
End If
%>
 |