% nh = "biography" pt = "Biography" %> <% cmsname = "ekrgadmin" uploadscript = "w3upload" ' w3upload or aspupload dbpath = Server.Mappath("/jkitzman/data/jkdata.mdb") loginredirect = "news.asp" allxmls = Array() set cn = server.createobject("ADODB.Connection") cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath set rspg = server.createobject("ADODB.Recordset") set rs = server.createobject("ADODB.Recordset") set rs2 = server.createobject("ADODB.Recordset") set myFSO = Server.CreateObject("Scripting.FileSystemObject") 'if uploadscript = "w3upload" then ' set Upload = Server.CreateObject("w3.Upload") 'elseif uploadscript = "aspupload" then ' set Upload = Server.CreateObject("Persits.Upload") 'end if %> <% id = request("id") action = request("action") sub Nav(match,url,title) response.write "
There are no news items at this time.
" & vbcrlf end if rs.close response.write "" & rs.fields("date") & "
" & vbcrlf response.write "" & replace(rs.fields("story"),Chr(13)&Chr(10)&Chr(13)&Chr(10),"
" & vbcrlf & "") & "
" & vbcrlf response.write "" & vbcrlf rs.close end if end sub sub LeftNews rs.open "SELECT * FROM tblNews WHERE datevalue(showdate) <= datevalue('" & Now() & "') AND datevalue(hidedate) >= datevalue('" & Now() & "') ORDER BY date DESC" ,cn,0,1,1 if not rs.eof then response.write "" & rs.fields("date") & " " if rs.fields("story") <> "" or rs.fields("linkurl") <> "" then response.write "" end if response.write rs.fields("headline") if rs.fields("story") <> "" or rs.fields("linkurl") <> "" then response.write " ..." end if response.write "
" & vbcrlf rs.movenext end if next end if rs.close end sub sub ListLinks rs2.open "SELECT * FROM tblLinkCats ORDER BY sort" ,cn,0,1,1 while not rs2.eof response.write "" & replace(rs.fields("description"),Chr(13)&Chr(10)&Chr(13)&Chr(10),"
" & vbcrlf & "") & "
" & vbcrlf end if response.write"Thank you for your message. I will get back to you as soon as possible.
" & vbcrlf elseif action = "submit" then Set myMail = CreateObject("CDO.Message") myMail.Subject = "Kitzman.net contact form" myMail.To = "jktrb@swbell.net" myMail.From = request.form("email") bodystring = "" bodystring = bodystring & "Name: " & request.form("name") & vbCrLf bodystring = bodystring & "Email: " & request.form("email") & vbCrLf & vbCrLf bodystring = bodystring & "Message: " & request.form("message") myMail.TextBody = bodystring myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myMail.Configuration.Fields.Update myMail.Send set myMail = nothing response.redirect "contact.asp?action=thanks" else response.write "" & vbcrlf end if end sub %>