Timebestilling

<%@ Language=VBScript %> <% if Request.QueryString("step") = 1 then fname = request.form("name") address = request.form("address") postno = request.form("postno") telephone = request.form("telephone") email = request.form("email") ftime = request.form("time") comments = request.form("comments") Admin_Email="post@sentrumdental.no" prj_name="Sentrum Dental" 'send mail to admin as well as user MsgBody = ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("

") MsgBody = MsgBody & "Til,
" MsgBody = MsgBody & "Administrator
" & prj_name & "
" MsgBody = MsgBody & "

" & fname & " la inn melding i kontaktskjemaet " & time() & " den " & formatdatetime(now(),2) & ".
" MsgBody = MsgBody & "Kontaktskjema
" MsgBody = MsgBody & "Navn: " & fname & "
" MsgBody = MsgBody & "E-post: " & email & "
" MsgBody = MsgBody & "Adresse: " & address & "
" MsgBody = MsgBody & "Telefon: " & telephone & "
" MsgBody = MsgBody & "Melding: " & comments & "
" MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'Response.Write(Msgbody) ' Dim objNewMail ' Set objNewMail = Server.CreateObject("CDONTS.NewMail") ' objNewMail.From = fname &" ("&email&")" ' objNewMail.To = Admin_Email ' objNewMail.Subject = "Feedback - " & prj_name ' objNewMail.BodyFormat = 0 ' objNewMail.MailFormat = 0 ' objNewMail.Body = MsgBody ' objNewMail.Send sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "web5.webcat.no" .Item(sch & "cdoSendUsingMethod") = cdoSendUsingPickup .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = fname &" ("&email&")" .To = "post@sentrumdental.no" .Subject = "Feedback - " & prj_name .HTMLBody = MsgBody ' .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing 'if present=false then 'To User MsgBody = ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") MsgBody = MsgBody & (" ") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("

") MsgBody = MsgBody & "Til, " MsgBody = MsgBody & "" & fname & "
Fra Tannlege Elisabeth Engemoen

Vi sjekker mail en gang per døgn, så er det en haste melding ser vi helst at dere ringer oss på 55 31 65 52" MsgBody = MsgBody & "

Din melding ble mottatt " & time() & " den " & formatdatetime(now(),2) & ".
" MsgBody = MsgBody & "Følgende informasjon ble registrert:
" MsgBody = MsgBody & "Navn: " & fname & "
" MsgBody = MsgBody & "E-post: " & email & "
" MsgBody = MsgBody & "Adresse: " & address & "
" MsgBody = MsgBody & "Telefon: " & telephone & "
" MsgBody = MsgBody & "Melding: " & comments & "
" 'MsgBody = MsgBody & "Produkt: " & Prodname & "
" 'MsgBody = MsgBody & "Ønsker de ikke å være registrert hos oss klikk her
" MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("

") MsgBody = MsgBody & ("") MsgBody = MsgBody & ("") 'objNewMail1.BodyFormat = 0 'objNewMail1.MailFormat = 0 'objNewMail1.Body = MsgBody 'objNewMail1.Send ' Response.Write(Msgbody) ' Dim objNewMail1 ' Set objNewMail1 = Server.CreateObject("CDONTS.NewMail") ' objNewMail1.From = Admin_Email ' objNewMail1.To = email ' objNewMail1.Subject = "Feedback - " & prj_name sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "web5.webcat.no" .Item(sch & "cdoSendUsingMethod") = cdoSendUsingPickup .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "post@sentrumdental.no" .To = fname &" ("&email&")" .Subject = "Feedback - " & prj_name .HTMLBody = MsgBody ' .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing 'end if '---------------------------------- fname = "" address = "" postno = "" telephone = "" email = "" ftime = "" comments = "" Response.Write("hh") End if %> Timebestilling


Skriv ut

?step=1" method="post" name="kontaktForm" id="kontaktForm" onSubmit="return CheckForm();">

Navn* :
Adresse* :
Postnr/Poststed* :
Telefon/mobil* :
E-post* :
Når ønsker du time* :
Kommentar :

Kontaktskjema:
Du kan bestille time ved å ringe oss på
tlf 55 31 65 52, eller fyll ut skjemaet nedenfor,
så kontakter vi deg så fort vi har mulighet.

Kontortider: mandag til fredag kl 8:00 - 16:00
Tirsdag: kl 8:00 – 18.00
Timer etter kl 16.00 kan ellers avtales

<%if request.QueryString("step")= 2 then%> Din forespørsel er sendt.
Vi tar kontakt så snart som mulig <%end if%>

Vågsallmenningen 7 - 5014 Bergen - Tlf: 55 31 65 52 - Faks: 55 32 08 90 - post@sentrumdental.no