asp.net - Problems sending emails from forum -
i have been redesigning site has message board, has been written guy looked after site.
it has few problems , written in .asp , uses .mdb files database.
you can see whole thing here. feel free post if helps, test thing have set using original files , new database.
the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted.
i’d have thought @ point in process there should script/file in postmessage.asp?
the postmessage.asp page below.
<% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"> </head> <body bgproperties="fixed" background="back_82a.gif"> <tr> <td valign="top" colspan="3"><p align="center"> </p> <% on error resume next dim filetype2, lengthx, output, newname, upload, connect, posting, xpostingno, message, mysmartupload, item, value, file, imageno, max_upload_size, content, max ' max_upload_size = 100000 ' content = clng(request.servervariables("content_length")) ' max = clng(max_upload_size) ' if content < max set upload = server.createobject("persits.upload") ' mysmartupload.upload ' else %> <!-- <br><br><center><strong><p><font face="arial" color="#000080" size="2">the file trying upload large. maximum size 100,000 bytes. please try again.</strong></font></center>--> <% ' response.end ' end if ' set connect = server.createobject("adodb.connection") ' connect.open "messageboard" connect = "driver={microsoft access driver (*.mdb)};" & _ "dbq=d:\sites\germanphilately.org\public_html\messageboard.mdb" ' connect.begintrans set posting = server.createobject("adodb.recordset") posting.open "select * original original_number = 1",connect,adopenkeyset,adlockpessimistic %> <% if err.number <> 0 %> there error in submitting application (0).<p> error <%=err.number%>: <%=err.description%><p> <% end if %> <% upload.save "d:\sites\germanphilately.org\public_html\membersimages\" posting.addnew posting ("title") = upload.form("title") posting ("date") = date posting ("time") = time posting ("name") = upload.form("name") posting ("email") = upload.form("email") posting.update xpostingno = posting("original_number") %> <% if err.number <> 0 %> there error in submitting application (1).<p> error <%=err.number%>: <%=err.description%><p> <% end if %> <% set message = server.createobject("adodb.recordset") message.open "select * message original_number = 1",connect,adopenkeyset,adlockpessimistic %> <% if err.number <> 0 %> there error in submitting application (2).<p> error <%=err.number%>: <%=err.description%><p> <% end if %> <% message.addnew message ("original_number") = posting("original_number") message ("reply_number") = 0 message ("text") = upload.form("message") ' if mysmartupload.files.item(1).fileext <> "" ' message ("filetype") = mysmartupload.files.item(1).fileext ' end if message.update ' imageno = message("imageno") session("filetype1") = "x" each file in upload.files newname = "image" & message("imageno") file.saveas "d:\sites\germanphilately.org\public_html\membersimages\" & newname & file.ext filetype2 = file.ext lengthx = len(filetype2) - 1 session("filetype1") = right(filetype2,lengthx) next set message = server.createobject("adodb.recordset") if err.number <> 0 %> there error in submitting application (update1).<p> error <%=err.number%>: <%=err.description%><p> <% end if ' if session("filetype1") <> "" message.open "update message set filetype='" & session("filetype1") & "' original_number =" & posting("original_number") & " , reply_number =0",connect,adopenkeyset,adlockpessimistic if err.number <> 0 %> there error in submitting application (open).<p> error <%=err.number%>: <%=err.description%><p> <% ' end if end if ' mysmartupload.files.item(1).saveas "membersimages/image" & message("imageno") & "." & mysmartupload.files.item(1).fileext %> <% if err.number <> 0 connect.rollbacktrans else connect.committrans %> <p><br><br> <span style="font-weight: 700; color: #be1e2d;">thank <%=request("firstname") + " "%> <%=request("lastname")%>.</span> <p>your message has been posted.<br> <p><center><a href="messageboard.asp?whichpage=<%=session("whichpage")%>">back message forum</a> <% end if %> </body> </html>
Comments
Post a Comment