Første fejl var jeg havde glemt end if til aller sidst efter den var kommet på kom den odbc
her er koden:
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Gem i databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("info.mdb")
navn = replace(Request.Form("navn"),"'","''")
SQL = "select * from tblInfo where nick = '" & nick & "'"
set rs = Conn.Execute(SQL)
if rs.EOF then
'navnet var ikke i databasen tilføj
SQL = "insert into tblInfo (dbNick) values ('" & nick & "')"
Conn.Execute(SQL)
else
'navnet findes
Response.Write "Navnet findes i forvejen"
end if
Conn.Close
'Evt lav redirect her eller udskrive noget tekst om data er gemt
Response.Redirect("response.asp")
else
%>
<HTML>
<HEAD>
<TITLE>Kom og Vind Rundspørge</TITLE>
<STYLE>
TD {
FONT-FAMILY: VERDANA,ARIAL;
FONT-SIZE: 12PX;
}
</STYLE>
</HEAD>
<BODY>
<CENTER><H1>Kom og Vind Rundspørge Din Mening</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>Nick:</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>
<%
End If
%>
