<% strHost = "saturnus.mwdesign.se" 'strHost = "195.196.128.41" strFromName = Request("FromName") strFrom = Request("From") strSubject = Request("Subject") strBody = Request("Body") strTo = "info@pacman.se" If Request("FromName") <> "" And Request("From") <> "" And Request("Subject") <> "" And Request("Body") <> "" Then ' function SendMail(strTo, strFrom, strFromName, sPriority, strSubject, strBody, bHTML) cdoLow = 0 cdoNormal = 1 cdoHigh = 2 CdoBodyFormatText = 1 CdoMailFormatText = 1 ' Create a new mail object Set oMailMessage = server.CreateObject("CDONTS.NewMail") oMailMessage.To = strTo ' Good practice to set a Reply-TO oMailMessage.Value("Reply-To") = strFrom oMailMessage.From = strFromName oMailMessage.Subject = strSubject oMailMessage.Value( "X-Originating-IP" ) = request.servervariables("REMOTE_ADDR") oMailMessage.Value( "X-Originating-IP2" ) = request.servervariables("REMOTE_HOST") sPriority = ucase(sPriority) if sPriority = "LOW" then oMailMessage.importance = cdoLow elseif sPriority = "HIGH" then oMailMessage.importance = cdoHigh else oMailMessage.importance = cdoNormal end if ' Set body format for HTML if needed if bHTML then oMailMessage.BodyFormat = CdoBodyFormatText oMailMessage.MailFormat = CdoMailFormatText end if oMailMessage.Body = strBody ' Now send it off! oMailMessage.Send set oMailMessage = nothing strFromName = "" strFrom = "" strSubject = "" strBody = "" Else If Request("Send") <> "" Then strFyll = "Du Måste fylla i alla fält!" End If End If %>

Kontaktinfo:
Besöksadress:	Barnhusgatan 16 111 23 Stockholm
Postadress:	Karlskronavägen 9 121 52 Johanneshov
Telefon:	070 493 1993
E-Mail:	info@pacman.se