Er der en der kan hjælpe mig?
Jeg er ved at lave et faq script til min side, men er løbet ind i et problem. Når der bliver stillet et spørgsmål, så vises spørgsmålet. Jeg vil have det til at jeg skal godkende spørgsmålet før det vises. Er der en der kan hjælpe mig?I min database har jeg lavt et felt der hedder "showitem" hvor jeg skal krydse af hvis spørgsmålet skal vises...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body><%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
' 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
strName = ChkString(Request.Form("name"))
strEmail = ChkString(Request.Form("email"))
strComments = ChkString(Request.Form("comments"))
strshowitem = "False"
data_source = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("faq.mdb")
sql_insert = "insert into users (name, email, comments) values ('" & strName & "', '" & strEmail & "', '" & strComments & "')"
' 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."
Else
%><form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
<p align="center">HTML Form Page:</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><%
End If
%></body>
</html>
