<%@ Language=VBScript %>
<%
If Request.ServerVariables("CONTENT_LENGTH") > 0 Then
if Trim(Request.Form("submit"))="Send til OneOff" then
Name=Request.Form("Name")
Company=Request.Form("Company")
Phonenumber=Request.Form("Phonenumber")
Address=Request.Form("Address")
PostalCity=Request.Form("Postal")+ " " + Request.Form("City")
Email=Request.Form("Email")
Remarks=Request.Form("Remarks")
if Request.Form("Phonecall")="on" then
Phonecall=true
else
Phonecall=false
end if
mailtekst="Tak for din henvendelse til OneOff" + + vbCrlF
if Phonecall=true then
mailtekst = mailtekst + "Du vil som ønsket blive kontaktet af OneOff" + vbCrlF
end if
mailtekst = mailtekst + vbCrlF + "Dine data: " + vbCrlF + vbCrlF
mailtekst = mailtekst + "Navn: " + Name + vbCrlF
mailtekst = mailtekst + "Firma: " + Company + vbCrlF
mailtekst = mailtekst + "Tlf. nr.: " + Phonenumber + vbCrlF
mailtekst = mailtekst + "Adresse: " + Address + vbCrlF
mailtekst = mailtekst + "Postnr. og by: " + PostalCity + vbCrlF
mailtekst = mailtekst + "Email: " + Email + vbCrlF
mailtekst = mailtekst + "Bemærkninger: " + Remarks + vbCrlF
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
' Her sættes afsender adresse
objCDO.From = Request.Form("Email")
' Her sættes modtager adresse
objCDO.To = "info@oneoff.dk"
' Her sættes overskriften på mailen
objCDO.Subject = "Et firma har sendt en email til OneOff"
' Her sættes selve teksten til mailen
objCDO.Body = mailtekst
'send mail
objCDO.Send
' Fjern objekt igen
Set objCDO = Nothing
end if
end if
PageID = Request.QueryString("PageID")
If PageID = "" Then
'Gør forsiden til default.
PageID=1
End If
status=Request.QueryString("status")
If status = "online" or status = "offline" then
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("oneoff.mdb")
'open connection
Set Con = CreateObject("ADODB.Connection")
Con.Open strConnection
strSQL = "SELECT oneoff_online FROM status where id=1"
Set rs = Con.Execute(strSQL)
If status = "online" then
strSQL = "UPDATE status SET oneoff_online = true WHERE id = 1"
else
strSQL = "UPDATE status SET oneoff_online = false WHERE id = 1"
end if
Set rs = Con.Execute(strSQL)
'Response.Write "test"
'Response.end
'luk connection
Con.Close
'Frigør connection fra hukommelse
Set Con = Nothing
end if
%>
OneOff - udvikling af internetløsninger
