Forum
Hej.Jeg er ved at lave et salgs og købs forum. (et jeg har downloaded), men er løbet ind i 2 problemer.
http://www.friserverplads.dk/frozenasp/links.asp
1.) Det første er at når man opretter et indlæg skal man taste navn, emne, mail, besked og et billed(problem nr.2). problemet er når man skal besvare det kommer de samme felter frem, og det er jo lidt underligt at man skal give et emne og uploade et billed når man svare.
2.) det andet er når man skal oploade et billed. det kan jeg ikke få til at virke sammen med det andet. virker fint hvis jeg bruger det for sig selv men.
-----------------------------------------------------
Scriptet til punkt 1.
<!--#include file="functions.inc"-->
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Posted = 0
If Len(Trim(Request.Form("Subject"))) = 0 AND Len(Trim(Request.Form("Comment"))) = 0 Then
strSQL = "SELECT * FROM Forums WHERE (ID = " & Request("ForumID") & ")"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intForumID = rs("ID")
strForum = rs("Forum")
End If
Else
If Len(Trim(Request.Form("MessageId"))) = 0 Then
strSQL = "INSERT INTO entries (Name, Email, Subject, Comment, ForumId, Orgthread) VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Subject"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "', TRUE);"
myConn.Execute(strSQL)
Else
tempSQL = "SELECT subject,email FROM entries WHERE (ID = " & Request("MessageId") & ")"
Set tempRS = myConn.Execute(tempSQL)
strSubject = tempRS("Subject")
strEmail = tempRS("email")
tempRS.Close
Set Rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM entries;"
Rs.Open strSQL, myConn, 1, 3
Rs.AddNew
Rs("name") = DBFix(Trim(Request.Form("Name")))
Rs("email") = DBFix(Trim(Request.Form("Email")))
Rs("comment") = DBFix(Trim(Request.Form("Comment")))
Rs("forumid") = DBFix(Trim(Request("ForumId")))
Rs("replyid") = DBFix(Trim(Request("MessageId")))
Rs("subject") = strSubject
Rs.Update
strMessageID = Rs("id")
Rs.Clone: Set Rs = Nothing
If strEmail > "" Then
strText = ""
strText = strText & "Der er postet et svar til dit indlæg" & vbCrLf & vbCrLf
' ret selv lige URL'en til her.
strText = strText & "Klik på flg. link for at læse svaret: http://frozen/debatforum/viewmsg.asp?id=" & DBFix(Trim(Request("MessageId"))) & "&ForumID=" & DBFix(Trim(Request("ForumId"))) & "&Showsub=" & strMessageID
' Her skal du lige rette det til med SMTP server (ServerAddress) og afsender
' mail (Sender) og evt. Subject.
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.frozen-design.dk"
JMail.Sender = "christian@frozen-design.dk"
JMail.SenderName = "Christian Lund"
JMail.Subject = "Cb-radio"
JMail.Body = strText
JMail.AddRecipient strEmail
JMail.Priority = 1
JMail.Silent = True
JMail.Execute
Set JMail = Nothing
End If
End If
Posted = 1
End If
myConn.Close
%>
<html>
<head>
<title>Forum [ Post en besked ]</title>
</head>
<body bgcolor="#000000" text="#CECE5F" link="#F1F145" vlink="#F1F145" alink="#F1F145"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">
<div align="center"><center>
<br>
<br>
<br>
<table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="#c3c3c3">
<tr>
<td width="100%" bgcolor="#7b7b7b"><strong><font face="Verdana" color="#EDED74"><small>Forum:
<% If Posted = 0 Then Response.Write strForum%> </small></font></strong></td>
</tr>
<tr>
<td width="100%" bgcolor="#000000"><% If Posted = 0 Then %>
<p align="left"><font face="Verdana"><small><a href="default.asp">>>Til
oversigt</a></small></font> <%End If%> </td>
</tr>
<tr>
<td width="100%">
<%
If Len(Trim(Request.Form("Subject"))) = 0 AND Len(Trim(Request.Form("Comment"))) = 0 Then
%>
<form method="POST" action="forumpost.asp">
<input type="hidden" name="ForumID" value="<%=intForumID%>">
<input type="hidden" name="MessageID" value="<%=Trim(Request("MessageID"))%>">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="left" bgcolor="#000000"><small><font face="Verdana">Navn:</font></small></td>
<td align="left" bgcolor="#000000"><font face="Verdana"><small><input type="text" name="name" size="20" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #CECE5F"></small></font></td>
</tr>
<tr>
<td align="left" bgcolor="#000000"><small><font face="Verdana">E-mail:</font></small></td>
<td align="left" bgcolor="#000000"><small><font face="Verdana"><input type="text"
name="email" size="20" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #CECE5F"></font></small></td>
</tr>
<tr>
<td align="left" bgcolor="#000000"><small><font face="Verdana">Emne:</font></small></td>
<td align="left" bgcolor="#000000"><small><font face="Verdana">
<input type="text"
name="Subject" size="30" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #CECE5F"></font></small></td>
</tr>
<tr>
<td valign="top" align="left" bgcolor="#000000"><font face="Verdana"><small>Besked:</small></font></td>
<td align="left" bgcolor="#000000"><textarea rows="8" name="Comment" cols="50" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #CECE5F"></textarea></td>
</tr>
<tr>
<td valign="top" align="left" bgcolor="#000000"><font face="Verdana"><small>Billed:</small></font></td>
<td align="left" bgcolor="#000000"><input type= FILE size= 30 name="FILE12" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #FFFFFF; border: 1 solid #CECE5F"></textarea></td>
</tr>
</table>
<table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="000000">
<tr>
<td width="100%" bgcolor="000000">
<input type="submit" value="Send" name="Action" style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #CECE5F; border: 1 solid #CECE5F">
</form>
<% Else %>
</table>
<table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="000000">
<tr>
<td width="100%" bgcolor="000000">
<p align="center">
<font face="Verdana"><small> </p></small></font>
<p align="center"><font face="Verdana"><small>Dit indlæg er nu optaget i forumet</small></font></p>
<p align="center"><INPUT TYPE="button" VALUE="Tilbage" onClick="history.go(-2); return true;" id=button1 name=button1 style="background-color: #000000; font-family: Verdana; font-size: 8 pt; color: #CECE5F; border: 1 solid #CECE5F"></p>
<% End If %>
</td>
</tr>
</table>
</center></div>
</body>
</html>
---------------------------------------------------
script til punkt 2.
<html>
<body>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SetMaxSize 300000, True
'Mappen billederne bliver uploadet til
Upload.SaveVirtual("temp")
'For Each item in Upload.Form
For Each File in Upload.Files
Dim FileName
FileName = File.ExtractFileName
if Err <> 0 Then
Response.Write "Der er sket en fejl! : " & Err.Description
Else
Response.Write "Filen "&FileName&" er uploaded!<br>"
'Databasen
dbConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\debatforum\forum.mdb;"
'Database string
strSQL = "SELECT * FROM Entries"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, dbConnection, 1, 3
rs.AddNew
rs("Billed") = FileName
rs.Update
rs.Close
Set rs = Nothing
'Den side du bliver sendt tilbage til efter du har uploadet
Response.Redirect "Ny Tekstdokument.htm"
End If
Next
%>
</body>
</html>
