<%@ Language=VBScript%>
<% option explicit %>
<%
If request.form.count > 0 Then
'*** vars..
Dim oRS, sNamn, sMail, sMsg, iID, sUniqe
sNamn = Fixa( Request.Form("namn") )
sMail = Fixa( Request.Form("email") )
sMsg = Fixa( Request.Form("msg") )
'*** om ngt fält är tomt, sätts det är frågetecken istället
Function Fixa( str )
str = F_FixFormInput( str, 0, 1 )
If str = "" then
str = "?"
end if
Fixa = str
End Function
'*** fixar unikt id
sUniqe = F_RandRange( 100000, 999999 ) & Request.ServerVariables("REMOTE_ADDR") & Now()
sUniqe = replace( replace( sUniqe, ".", "" ) , "-", "" )
sUniqe = replace( replace( sUniqe, ":", "" ) , " ", "" )
'*** in i databas + hämtar id-nummer
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.Open "kontakt", F_GetConnString( Server.MapPath( "../!@DATABASER@!/kontakt.mdb" ) ), 1, 2, 2
oRS.AddNew
oRS("FromName") = server.htmlEncode( sNamn )
oRS("FromMail") = server.htmlEncode( sMail )
oRS("Message") = server.htmlEncode( sMsg )
oRS("Date") = server.htmlEncode( Now() )
oRS("uniqeID") = server.htmlEncode( sUniqe )
oRS.Update
oRS.Find "uniqeID='" & sUniqe & "'"
iID = oRS("ID")
oRS.Close
Set oRS = Nothing
'*** admin-urlen:
Dim sAdmURL
Dim sAdmURL1
Dim sAdmURL2
sAdmURL = "http://" & Request.ServerVariables("SERVER_NAME") & "/admin/kontakt/index.asp?ID=" & iID & "&A="
sAdmURL1 = sAdmURL & "EDT"
sAdmURL2 = sAdmURL & "PUB"
'*** skickar mailet..
Dim oJMail
Set oJMail = Server.CreateObject("JMail.SMTPMail")
oJMail.ServerAddress = "mail.pi.se; mail.speedway.se"
oJMail.Sender = "HARALD"
oJMail.Subject = "HARALD: Kontakt"
oJMail.AddRecipient "herrn@harald.net"
'oJMail.AddRecipient "martin@harald.net"
oJMail.Body = "Från:" & sMail & vbCrLf & String( 50, "-" ) & vbCrLf & replace(sMsg,"
",vbCrLf) & vbCrLf & vbCrLf & vbCrLF & String( 50, "-" ) & vbCrLf & "För att ändra inlägget före publicering:" & vbCrLf & sAdmURL1 & vbCrLf & vbCrLf & "För publicera utan ändringar:" & vbCrLF & sAdmURL2 & vbCrLf & String( 50, "-" )
oJMail.Execute
Set oJMail = Nothing
End If
%>
www.HEJ DEN LILLA BUTIKEN.net - Kontakta Harald
