%@ EnableSessionState=False Language=VBScript%>
<% option explicit %>
<%
If Request.Form.Count > 0 Then
'variabler
Dim strFromName, strFromMail, strQuestion, strNu
strFromName = F_FixFormInput( Request.Form( "namn" ), 0, 1 )
strFromMail = F_FixFormInput( Request.Form( "email" ), 0, 1 )
strQuestion = F_FixFormInput( Request.Form( "fraga" ), 0, 1 )
strNu = Now()
'in i databas
if trim( strFromName ) <> "" and trim( strFromMail ) <> "" and trim( strQuestion ) <> "" Then
Dim strSQL, objConn, objRS, intQID
Set objConn = Server.CreateObject( "ADODB.Connection" )
objConn.Open( F_GetConnString( Server.MapPath( "../!@DATABASER@!/panelen.mdb" ) ) )
strSQL = "INSERT INTO panelen( FromName, FromMail, Question, QuestDate ) " &_
"VALUES( '" & server.HTMLEncode(strFromName) & "', '" & server.HTMLEncode(strFromMail) & "', '" & server.HTMLEncode(strQuestion) & "', '" & strNu & "' )"
objConn.Execute( strSQL )
'hämtar QID
strSQL = "SELECT qid FROM panelen WHERE "&_
"FromName = '" & server.HTMLEncode(strFromName) & "' AND "&_
"FromMail = '" & server.HTMLEncode(strFromMail) & "' AND "&_
"Question = '" & server.HTMLEncode(strQuestion) & "' AND "&_
"QuestDate = '" & strNu & "'"
Set objRS = objConn.Execute( strSQL )
intQID = objRS( "QID" )
'stänger objekten
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
'admin-url
Dim strAdminURL
strAdminURL = "http://" & Request.ServerVariables("SERVER_NAME") & "/admin/" & "panelen/index.asp?QID=" & intQID
'mailet
Dim objJMail
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = "mail.pi.se; mail.speedway.se"
objJMail.Sender = "PANELEN"
objJMail.Subject = "HARALD: Panelen-fråga"
objJMail.AddRecipient "herrn@harald.net"
objJMail.Body = "Från: " & strFromName & vbCrlf & String( 45, "-" ) & vbCrlF & Replace( strQuestion, "
", vbCrLF ) & vbCrLf & vbCrLf & String( 45, "-" ) & vbCrLf & strAdminURL
objJMail.Execute
Set objJMail = Nothing
Response.Redirect( "index.asp" )
ELse
Response.Write "ERRRRORR"
End If
End If
%>