Erbjudande Hemsida Mini

h e m s i d a - m i n i

En enkel reklamsida till företaget med kontaktformulär
Du får en hemsida framtagen speciellt till Dig för att spegla Din och företagets profil.

Erbjudandet är tidsbegränsat och är beroende på antal beställningar som gör att man kan hamna i en viss kö. Så beställ redan idag för att få Din sida publicerad inom kort. Leveranstid ca 2-3 veckor.

Obs! extrapris just nu! 1400:- exkl. moms

OBS! Ytterligare 10% rabatt vid direktbetalning till kontot vid beställningen

Erbjudande Hemsida Mini - Beställ här nedan

Du får efter beställning en köpbekräftelse och betalningsinformation sedan kan arbetet med Din hemsida börja.
För mer information - maila till info@ahdesign.se

Behöver Ditt företag mer material såsom logotype, tryckmaterial m.m. malia för att få ett prisförslag

30 dagars pengarna tillbaka garanti !

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim mailsent mailsent = false %> <% ' IF THE FIELD Fnamn AND THE VALUE OF IT IS NOT 0 AND THE FIELD send HAS THE RIGHT VALUE FROM THE BUTTON if (len(cstr(Request.Form("Fnamn"))) > 0 and Request.Form("send") = "sendepost") Then ' Using CDOSYS '////////////////////// Dim ObjSendMail Dim tema Dim antal Dim payment Dim layout Dim domannamn Dim Fnamn Dim Enamn Dim foretag Dim orgnr Dim kontaktperson Dim epost Dim tele Dim padress Dim pnr Dim port Dim text Dim amne Dim Msg Dim ip Dim tid '///////////////////// tema = Request.Form("tema") antal = Request.Form("antal") payment = Request.Form("payment") layout = Request.Form("layout") newsletter = Request.Form("domannamn") Fnamn = Request.Form("Fnamn") Enamn = Request.Form("Enamn") foretag = Request.Form("foretag") orgnr = Request.Form("orgnr") kontaktperson = Request.Form("kontaktperson") epost = Request.Form("epost") tele = Request.Form("tele") padress = Request.Form("padress") pnr = Request.Form("pnr") port = Request.Form("port") amne = "Beställning Hemsida mini" text = Request.Form("text") ip = Request.ServerVariables("REMOTE_ADDR") tid = Now() '////////////////////// Msg = "Ni har fått en beställning via er hemsida." & vbcrlf & vbcrlf Msg = Msg & "Tema:"& tema & vbcrlf Msg = Msg & "Antal:"& antal & vbcrlf Msg = Msg & "Betalning:"& payment & vbcrlf Msg = Msg & "layout:"& layout & vbcrlf Msg = Msg & "Domännamn:"& domannamn & vbcrlf Msg = Msg & "Förnamn:"& Fnamn & vbcrlf Msg = Msg & "Efternamn:"& Enamn & vbcrlf Msg = Msg & "Företag:"& foretag & vbcrlf Msg = Msg & "Orgnr:"& orgnr & vbcrlf Msg = Msg & "Kontaktperson:"& kontaktperson & vbcrlf Msg = Msg & "E-postadress:"& epost & vbcrlf Msg = Msg & "Tele:"& tele & vbcrlf Msg = Msg & "Postadress:"& padress & vbcrlf Msg = Msg & "Postnr:"& pnr & vbcrlf Msg = Msg & "Postort:"& port & vbcrlf Msg = Msg & "Ip-adress:"& ip & vbcrlf Msg = Msg & "Tid:"& tid & vbcrlf Msg = Msg & "Meddelande:"& vbcrlf & text & vbcrlf '////////////////////// Set ObjSendMail = CreateObject("CDO.Message") objSendMail.BodyPart.Charset=("ISO-8859-1") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.ahdesign.se" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="youremailadress" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "info@ahdesign.se" ObjSendMail.Subject = amne ObjSendMail.From = "info@ahdesign.se" objSendMail.ReplyTo = mailadress ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = Msg ObjSendMail.TextBody = Msg ObjSendMail.Send Set ObjSendMail = Nothing 'end send mail mailsent = true End If %>


Förnamn *	Efternamn*

Företag	Org.nr

Kontaktperson	E-post *

Telefon *

Postadress *	Postnr *

Postort *

Betalning *	Önskat domännamn *

Meddelande <% ' THE CONFIRMATIONMESSAGE if mailsent= true Then Response.Redirect "http://ahdesign.se/tack_bestallning.asp" end if %>