<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.Form("nick") <> "" then
'Gem i databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb")
nick = replace(Request.Form("nick"),"'","''")
SQL = "select * from tblInfo where dbNick = '" & nick & "'"
set rs = Conn.Execute(SQL)
if rs.EOF then
'navnet var ikke i databasen tilføj
SQL = "insert into tblInfo (dbNick, dbNavn, dbEmail, dbSvar, dbNote, dbDato, dbIP) values ('" & nick & "','" & navn & "','" & email & "','" & ide & "','" & mening & "','" & FormatDateTime(Date,1) & " - " & time & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
Conn.Execute(SQL)
Conn.Close
'LAV redirect her:
Response.Redirect("response.asp")
else
'navnet findes
Response.Write "Navnet findes i forvejen"
Conn.Close
end if
end if
%>
<HTML>
<HEAD>
<TITLE>Title</TITLE>
<STYLE>
TD {
FONT-FAMILY: VERDANA,ARIAL;
FONT-SIZE: 12PX;
}
</STYLE>
</HEAD>
<BODY>
<CENTER><H1>Overskrift</H1></CENTER>
</BODY>
<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<TABLE BGCOLOR="#5090F9" WIDTH="600px" ALIGN="CENTER" BORDER="1">
<TR>
<TD ALIGN=LEFT WIDTH="30%">
<B>Brugernavn:</B><BR>
<INPUT TYPE=TEXT NAME=nick SIZE=25 VALUE="Skriv dit brugernavn her">
</TD>
<TD ALIGN=LEFT WIDTH="70%">
<B>Navn og email adresse bliver ikke postet!
Det er kun for at kunne se om det er en bruger som har indtastet sin mening.</B>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT WIDTH="30%">
<B>Navn:</B><BR>
<INPUT TYPE=TEXT NAME=navn SIZE=25 VALUE="Skriv dit navn her">
</TD>
<TD ALIGN=LEFT WIDTH="70%">
<B>Email:</B><BR>
<INPUT TYPE=TEXT NAME=email style="width:400px;" VALUE="Skriv din emailadresse her">
</TD>
</TR>
<TR>
<TD ALIGN=LEFT WIDTH="30%" VALIGN="TOP">
<B>Din mening om ideen:</B><BR>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Meget God:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Meget God"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
God:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="God"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Lidt God:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Lidt God"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
OK:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="OK"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Lidt Dårlig:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Lidt Dårlig"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Dårlig:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Dårlig"><BR>
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Meget Dårlig:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Meget Dårlig">
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD WIDTH="75">
Ved Ikke:
</TD>
<TD>
<INPUT TYPE=radio NAME=ide VALUE="Ved Ikke">
</TD>
</TR>
</TABLE>
</TD>
<TD ALIGN=LEFT WIDTH="70%" VALIGN="TOP">
<B>Note:</B><BR>
<TEXTAREA NAME="mening" STYLE="WIDTH:400PX;HEIGHT:210PX;">Skriv din mening her</TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=LEFT WIDTH="30%">
 
</TD>
<TD ALIGN=RIGHT WIDTH="70%">
<INPUT TYPE=reset VALUE="Nulstil felterne">
   
<INPUT TYPE=Submit VALUE="Tilføj din mening">
</TD>
</TR>
</TABLE>
</FORM>
</HTML>
