Overføre value fra Hidden field til database
Hej jeg har et spørge forum hvor jeg gerne vil have overført indholdet fra et hidden field.Linien jeg har lagt ind er denne:
<input type="hidden" name="CogT" value= "Lund">
Selve koden ser således ud. Jeg er ikke klar over hvor/hvad jeg skal ændre for at få indholdet overført itl DB.
Koden er som følger.
<!--#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
strSQL = "INSERT INTO Entries"
If Len(Trim(Request.Form("MessageId"))) = 0 Then
strSQL = strSQL & " (Name, Email, Subject, Comment, ForumId, Orgthread)"
strSQL = strSQL & " 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);"
Else
tempSQL = "SELECT Subject FROM Entries WHERE (Id = " & Request("MessageId") & ")"
Set tempRS = myConn.Execute(tempSQL)
strSQL = strSQL & " (Name, Email, Comment, ForumId, ReplyId, Subject, CogT)"
strSQL = strSQL & " VALUES('" & DBFix(Trim(Request.Form("Name"))) & "', '" & DBFix(Trim(Request.Form("Email"))) & "', '" & DBFix(Trim(Request.Form("Comment"))) & "', '" & DBFix(Trim(Request("ForumId"))) & "','" & DBFix(Trim(Request("MessageId"))) & "','" & DBFix(Trim(tempRS("Subject"))) & "','" & DBFix(Trim(tempRS("CogT"))) & "' );"
tempRS.Close
End If
myConn.Execute(strSQL)
Posted = 1
End If
myConn.Close
%>
<html>
<head>
<title>Charlotte og Tina Lund.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JScript">
</script>
<style type="text/css">
BODY { font-family:"Verdana, Arial, Helvetica, sans-serif"; font-size:70%;}
DIV#divMenuBar { background-color:#CCCC33; }
TABLE#tblMenuBar TD { font-size:60%; color:#CCCC33; padding:0px 5px 0px 5px; cursor:default; }
TABLE#tblMenuBar TD.clsMenuBarItem { font-weight:bold; cursor:default; }
/* These two style rules added for links in MenuBar */
TABLE#tblMenuBar TD.clsMenuBarItem A { text-decoration:none; color:#000000; font-weight:bold; }
TABLE#tblMenuBar TD.clsMenuBarItem A:hover { color:#FFFFFF; }
DIV.clsMenu {
font-size:90%; background-color:#CCCC33;
position:absolute; visibility:hidden; width:130px;
padding:5px 5px 5px 8px; border-top:1 white solid;
}
DIV.clsMenu A { text-decoration:none; color:#000000; font-weight:bold; }
DIV.clsMenu A:hover { color:#FFFFFF; }
</style>
</head>
<body>
<div align="center">. </div>
<p> </p>
<div align="center">
<center>
<table border="0" width="600" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="100%" bgcolor="#FFFFFF"><strong><font face="Verdana" color="#CCCC33"><small>Forum:
<% If Posted = 0 Then Response.Write strForum%>
</small></font></strong></td>
</tr>
<tr>
<td width="100%"><h1>
<% If Posted = 0 Then %>
TEST </h1>
<p align="left"><font face="Verdana"><b><small><a href="default.asp">Til
oversigt</a></small></b></font>
<%End If%>
</td>
</tr>
<tr>
<td width="100%"><%
If Len(Trim(Request.Form("Subject"))) = 0 AND Len(Trim(Request.Form("Comment"))) = 0 Then
%>
Spørg her
<form method="POST" action="forumpost.asp">
<input type="hidden" name="ForumID" value="<%=intForumID%>">
<input type="hidden" name="MessageID" value="<%=Trim(Request("MessageID"))%>">
<input type="hidden" name="CogT" value= "Lund">
<table border="0" width="100%"
cellspacing="1" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td align="left"><small><font face="Verdana">Navn:</font></small></td>
<td align="left"><font face="Verdana"><small>
<input type="text"
name="name" size="20">
</small></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left"><small><font face="Verdana">E-mail:</font></small></td>
<td align="left"><small><font face="Verdana">
<input type="text"
name="email" size="20">
</font></small></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="left"><small><font face="Verdana">Emne:</font></small></td>
<td align="left"><small><font face="Verdana">
<input type="text"
name="Subject" size="30">
</font></small></td>
</tr>
<tr bgcolor="#FFFFFF">
<td valign="top" align="left"><font face="Verdana"><small>Besked:</small></font></td>
<td align="left"><textarea rows="8" name="Comment" cols="50"></textarea></td>
</tr>
</table>
<p>
<input type="submit" value="Send" name="Action">
</p>
</form>
<% Else %> <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"><font face="Verdana"><a href="default.asp"><small>Til
oversigt</small></a></p></font>
<p>
<% End If %>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
