<%@ 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 %> www.HERKULES DEN STORE/STARKE.net - Panelen ver 2.0



Ställ en fråga till panelen. Om allt mellan himmel och jord. T ex: "Hur formulerar man en välformulerad fråga om man hade IG i svenska?", eller "Jag vet inte hur många kaptener man behöver för att styra upp sitt liv" eller nånting helt annat.
Fyll i fälten här nere bara så dyker Panelens svar upp inom kort tid på Panelen svarar-sidan.


Namn:

Det här vill jag fråga panelen: