<% If Request.QueryString("add") = "send" Then %>

Send us your comment

Name :
Headline :
Comment :
Picture : Should be 448px width

Type the code/numbers here: Code
<% End If %> <% If Request.QueryString("add") = "yes" Then Response.Buffer = True ' load object Dim load Set load = new Loader ' calling initialize method load.initialize Dim kod kod = load.getValue("kodsnutt") if Not kod = "135342" Then response.write "
" Response.Write ("

Letter has not been sent



") response.write "You did type the Wrong Code" Else response.write "

Comment has been sent

" ' File binary data Dim fileData fileData = load.getFileData("file") ' File name Dim fileName fileName = LCase(load.getFileName("file")) ' File path Dim filePath filePath = load.getFilePath("file") ' File path complete Dim filePathComplete filePathComplete = load.getFilePathComplete("file") ' File size Dim fileSize fileSize = load.getFileSize("file") ' File size translated Dim fileSizeTranslated fileSizeTranslated = load.getFileSizeTranslated("file") ' Content Type Dim contentType contentType = load.getContentType("file") ' No. of Form elements Dim countElements countElements = load.Count ' Value of text input field "news_headline" Dim newsHeadline newsHeadline = load.getValue("news_headline") ' Value of text input field "news_text" Dim newsText newsText = load.getValue("news_text") ' Value of text input field "news_writer" Dim newsWriter newsWriter = load.getValue("news_writer") Dim fileDesc fileDesc = load.getValue("file_desc") ' destroying load object Set load = Nothing Dim connectionString, str1 connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news99.mdb") ' Recordset object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Files", connectionString, 2, 2 ' Adding data rs.AddNew rs("File Name") = fileName rs("File Size") = fileSize rs("File Data").AppendChunk fileData rs("File Desc") = fileDesc rs("Content Type") = contentType rs("news_writer") = newsWriter str1 = newsText str1 = Replace(str1, vbCrLf, "
") rs("news_text") = str1 'rs("news_text") = newsText IF newsHeadline = "" Then rs("news_headline") = "Ingen Rubrik" Else rs("news_headline") = newsHeadline End IF rs("news_datetime") = Date rs.Update rs.Close Set rs = Nothing Response.Write ("
Your comment has been sent to us and it will first be reviewed by us before we publish it at nanews.net") Response.Write ("

") 'Response.redirect ("list9.asp") If Err.number <> 0 Then Response.Write ("
Something went wrong please try again ...") Response.Write ("") End If end if End If %>