Godkende spørgsmål i faq script
Jeg sidder og "leger" med et faq script. Når der er stillet et spørgsmål skal jeg godkende spørgsmålet før det vises på siden, men er gået i stå da jeg ikke ved hvordan det laves...... er der en der kan hjælpe mig :)I min database har jeg lavt et felt der hedder "vises" hvor jeg skal krydse af hvis spørgsmålet skal vises...
****** formularen*****
<form action="form_ac.asp" method="post">
<p align="center"><b>HTML Form Page:</b></p>
<table align="center" border=0 cellpadding=3 cellspacing=3 cols=2 width=400>
<tr>
<td align="right" height=10 valign="top">Navn :</td>
<td align="left" height=10 valign="top" width=250><input type="text" name="name"></td>
</tr>
<tr>
<td align="right" height=10 valign="top">Email :</td>
<td align="left" height=10 valign="top" width=250><input type="text" name="email"></td>
</tr>
<tr>
<td align="right" height=10 valign="top">spørgsmål :</td>
<td align="left" height=10 valign="top" width=250><textarea cols=20 rows=5 name="comments"></textarea></td>
</tr>
<tr>
<td align="right" height=10 valign="top"></td>
<td align="left" height=10 valign="top" width=200><input type="submit" value=" "> Submit -></td>
</tr>
</table>
</form>
**********************
****** siden der gemmer daterne*****
<html>
<head>
</head>
<body>
<%
' Declaring variables
Dim name, email, comments, data_source, con, sql_insert
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
name = ChkString(Request.Form("name"))
email = ChkString(Request.Form("email"))
comments = ChkString(Request.Form("comments"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
sql_insert = "insert into users (name, email, comments) values ('" & _
name & "', '" & email & "', '" & comments & "')"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write "All records were successfully entered into the database."
%>
***************
siden faqen vises på:
<table align="center" border=0 cellpadding=3 cellspacing=3 cols=2 width=400>
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
' Creating Recordset Object and opening the database
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "users", data_source
' Looping through the records to show all of them
While Not rs.EOF %>
<form action="del.asp" method="post">
<div align="center">
<center>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#990000" width="456" height="97">
<tr>
<td width="456" height="23" valign="top" bgcolor="#990000"><FONT FACE="VERDANA" SIZE="2"><FONT COLOR="WHITE" >Stillet af: <%=rs("name") %></FONT></FONT>
<FONT FACE="VERDANA" SIZE="2"><FONT COLOR="WHITE" ><%=rs("dato") %></FONT></FONT></td>
</tr>
<tr>
<td width="456" height="70" valign="top"bgcolor="#F3F3F3"><FONT FACE="VERDANA" SIZE="2"><%=rs("comments") %></FONT></td>
</tr>
</table>
</center>
</div>
</form>
<tr>
<td height=15 colspan="2"></td>
</tr>
<%
no = no + 1
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>
<tr>
<td align="right" height=10 valign="top"></td>
<td align="left" height=10 valign="top" width=250></td>
</tr>
</table>
