Tjek at record ikke er der i forvejn

strSQL = "SELECT holdnr FROM hold WHERE holdnr = " & Request.Form("holdnr")
Set rs3 = DataConn.Execute(strSQL)

if not rs3.BOF then
  Alert = "Holdnr. findes allerede"
else
  strSQL = "Insert into hold (holdnavn, instruktør, holdnr, holdantal, tider, sluttid, pris, dag) values('" & Request.Form("holdnavn") & "','" & Request.Form("instruktør") & "','" & Request.Form("holdnr") & "','" & Request.Form("holdantal") & "','" & Request.Form("tider") & "','" & Request.Form("sluttid") & "','" & Request.Form("pris") & "','" & Request.Form("dag") & "')"
  DataConn.Execute(strSQL)
  Alert = "Holdet er nu oprettet "
end if

nu vil den have en end if her

<option value="<% Response.write rs2("navn")%>"><% Response.write rs2("navn") %></option>
<%
rs2.MoveNext
loop

%>
men når jeg gør det viser den ikke holdnnavn eller instruktør ?

hele koden:
<%
if request.form("send") <> "" then


Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr

strSQL = "SELECT holdnr FROM hold WHERE holdnr = " & Request.Form("holdnr")
Set rs8 = DataConn.Execute(strSQL)

if not rs8.BOF then
  Alert = "Holdnr. findes allerede"
else

strSQL = "Insert into hold (holdnavn, instruktør, holdnr, holdantal, tider, sluttid, pris, dag) values('" & Request.Form("holdnavn") & "','" & Request.Form("instruktør") & "','" & Request.Form("holdnr") & "','" & Request.Form("holdantal") & "','" & Request.Form("tider") & "','" & Request.Form("sluttid") & "','" & Request.Form("pris") & "','" & Request.Form("dag") & "')"
DataConn.Execute(strSQL)
Alert = "Holdet er nu oprettet "
end if
%>


<%

Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
%>
<%
strSQL = "SELECT navn FROM instruktør"
' Skaber et recordset udfra SQL strengen
Set rs2 = DataConn.Execute(strSQL)
%>
<%
SQLserveradr="localhost" 

Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
%>
<%
strSQL = "SELECT holdnavn FROM holdnavn"
' Skaber et recordset udfra SQL strengen
Set rs3 = DataConn.Execute(strSQL)
%>

<form action="oprethold.asp" method="post">



<center>

<TABLE>
<TR>
    <TD>Holdnavn</TD>
    <TD><select name="holdnavn" class="Formindhold" >
<option value=""></option><%
do while not rs3.EOF
%><option value="<% Response.write rs3("holdnavn")%>"><% Response.write rs3("holdnavn") %></option>
<%
rs3.MoveNext
loop

%>
</select></TD>
</TR>
<TR>
    <TD>Instruktør</TD>
    <TD><select name="instruktør" class="Formindhold" >
<option value=""></option><%
do while not rs2.EOF
%><option value="<% Response.write rs2("navn")%>"><% Response.write rs2("navn") %></option>
<%
rs2.MoveNext
loop

%>
</select></TD>
</TR>
<TR>
    <TD>Holdnummer</TD>
    <TD> <input type="text"  name="holdnr" size="7"></TD>
</TR>
<TR>
    <TD>Holdantal</TD>
    <TD><select name="holdantal" class="Formindhold" >
                <option value="" selected></option>
                <option value="8">8</option>
                      <option value="9">9</option>
                        <option value="10">10</option>
                          <option value="11">11</option>
                <option value="12">12</option>
                <option value="13">13</option>
                <option value="14">14</option>
                <option value="15">15</option>
                <option value="16">16</option>
                <option value="17">17</option>
                <option value="18">18</option>
                <option value="19">19</option>
                <option value="20">20</option>
                <option value="21">21</option>
                <option value="22">22</option>
                <option value="23">23</option>
                <option value="24">24</option>
                <option value="25">25</option>
                <option value="26">26</option>
                <option value="27">27</option>
                <option value="28">28</option>
                <option value="29">29</option>
                <option value="30">30</option>
                <option value="31">31</option>
                <option value="32">32</option>
                <option value="33">33</option>
                <option value="34">34</option>
                <option value="35">35</option>
                <option value="36">36</option>
                <option value="37">37</option>
                <option value="38">38</option>
                <option value="39">39</option>
                <option value="40">40</option>
                </select></TD>
</TR>
<TR>
    <TD>Start tid</TD>
    <TD><select name="tider" class="Formindhold" >
                <option value="" selected></option>
                <option value="15.00">15.00</option>
                <option value="15.15">15.15</option>
                <option value="15.30">15.30</option>
                <option value="15.45">15.45</option>
                <option value="16.00">16.00</option>
                <option value="16.15">16.15</option>
                <option value="16.30">16.30</option>
                <option value="16.45">16.45</option>
                <option value="17.00">17.00</option>
                <option value="17.15">17.15</option>
                <option value="17.30">17.30</option>
                <option value="17.45">17.45</option>
                <option value="18.00">18.00</option>
                <option value="18.15">18.15</option>
                <option value="18.30">18.30</option>
                <option value="18.45">18.45</option>
                <option value="19.00">19.00</option>
                <option value="19.15">19.15</option>
                <option value="19.30">19.30</option>
                <option value="19.45">19.45</option>
                <option value="20.00">20.00</option>
                <option value="20.15">20.15</option>
                <option value="20.30">20.30</option>
                <option value="20.45">20.45</option>
                <option value="21.00">21.00</option>
                <option value="21.15">21.15</option>
                <option value="21.30">21.30</option>
                <option value="21.45">21.45</option>
                <option value="22.00">22.00</option>
                </select></TD>
</TR>

<TR>
    <TD>Slut tid</TD>
    <TD><select name="sluttid" class="Formindhold" >
                <option value="" selected></option>
                <option value="15.00">15.00</option>
                <option value="15.15">15.15</option>
                <option value="15.30">15.30</option>
                <option value="15.45">15.45</option>
                <option value="16.00">16.00</option>
                <option value="16.15">16.15</option>
                <option value="16.30">16.30</option>
                <option value="16.45">16.45</option>
                <option value="17.00">17.00</option>
                <option value="17.15">17.15</option>
                <option value="17.30">17.30</option>
                <option value="17.45">17.45</option>
                <option value="18.00">18.00</option>
                <option value="18.15">18.15</option>
                <option value="18.30">18.30</option>
                <option value="18.45">18.45</option>
                <option value="19.00">19.00</option>
                <option value="19.15">19.15</option>
                <option value="19.30">19.30</option>
                <option value="19.45">19.45</option>
                <option value="20.00">20.00</option>
                <option value="20.15">20.15</option>
                <option value="20.30">20.30</option>
                <option value="20.45">20.45</option>
                <option value="21.00">21.00</option>
                <option value="21.15">21.15</option>
                <option value="21.30">21.30</option>
                <option value="21.45">21.45</option>
                <option value="22.00">22.00</option>
                </select></TD>
</TR>
<TR>
    <TD>Pris</TD>
    <TD>
<select name="pris" class="Formindhold" >
<option value="" selected></option>
<option value="300.-">300.-</option>
                    <option value="300.- + kr. 100 pr vosken">300.- + kr. 100 pr vosken</option>
                <option value="350.- + kr. 100 pr vosken">350.- + kr. 100 pr voksen</option>
                <option value="350.-">350.-</option>
                <option value="395.-">395.-</option>
                    <option value="400.-">400.-</option>
                </TD>
</TR>
    <tr><TD>Dag</TD>
    <TD><select name="dag" class="Formindhold" >
                <option value="" selected></option>
                <option value="Mandag">Mandag</option>
                <option value="Tirsdag">Tirsdag</option>
                <option value="Torsdag">Torsdag</option>
                <option value="Fredag">Fredag</option>
                <option value="Lørdag">Lørdag</option>
                  <option value="Søndag">Søndag</option>
                </select></TD>
</TR>
</TABLE>
<BR>

<input type="submit" value="Gem" name="send" class="knap" >
</form>

<BR><BR>
<FONT COLOR="#ff0000"><%=Alert%></FONT>

For mig at se mangler der ikke nogen end if. Men dette er da ikke HELE koden, vel?

Der er en del rod i det, det tyder på at du har kopieret koden uden helt at forstå den.

For det første skal du kun åbne databaseforbindelsen DataConn én gang, det gør du med disse linier:

Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr

Og så skal du lukke den til sidst. Det gør du med dette:

DataConn.Close
Set DataConn = Nothing
Set rs1 = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
osv.

hmm ok det kan godt være ikke ikke helt forstår den.. men jeg kan heller ikke få det du skriver til at virke...æv

jeg kan ikke få det til at virke måske du kan sætte koden ind her..

det er enkel kode til at oprette sluttider , det er så "sluttid" den skal chekke om er oprettet i forvejn

<%
if request.form("send") <> "" then

"
Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr



strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
DataConn.Execute(strSQL)
Alert = "Sluttid er nu oprettet "
end if
%>



<form action="opretslut.asp" method="post">

<TABLE>
<TR>
    <TD>Sluttid:  </TD>
    <TD><input type="text"  name="sluttid" size="40"></TD>
</TR>

</TABLE>

<BR><BR><center>

<input type="submit" value="Opret sluttid" name="send" class="knap" >
</form>

<BR><BR>
<FONT COLOR="#ff0000"><%=Alert%></FONT>


</TD>
  </TR>

Måske sådan:

IF NOT EXISTS (SELECT sluttid FROM sluttider WHERE sluttid = '" & Request.Form("sluttid") & "') INSERT INTO sluttider (sluttid ) VALUES ('" & Request.Form("sluttid") & "')

nej det var den heller ikke glad for...

jeg arbejder med denne her men kan ikke få den til at virke:

strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"

set rst = DataConn.Execute (strSQL)

if rst.bof and rst.eof then
  strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
  DataConn.Execute(strSQL)
  Alert = "Sluttid er nu oprettet "
else
  Alert = "Sluttid findes "
end if

så vil den have en "end" nede ved min alert ?

det er jo ikke til at forstå ...

jeg fik den til at virke med end if til.. så kom med et svar

Ok tak ...