Kan ikke connecte til mysql HJÆLP

Conn.Close
Set Conn = Nothing

skal være:
DataConn.Close
Set DataConn = Nothing

du er jo guld

nej den er ikke helt fin endnu

http://www.slsk.dk/hold2.asp

Hvilken linje er 41??

Set rs = Conn.Execute(strSQL)

Alle dine conn skal udskiftes til DataConn. Det er jo det din connection hedder :o)

Set rs = DataConn.Execute(strSQL)

ok det  var bedre men jeg får stadig fejl på denne kode ?

holdid = Request.Querystring("id")
SQL = "select hold.*, holdnavn.holdnavn from hold inner join holdnavn on hold.holdnavn = holdnavn.holdnavn where holdnavn.id = " & holdid
Set rs = DataConn.Execute(strSQL)

Hvilken fejl får du??

det hele virker du er en helt

Ok. Du siger bare til hvis der sker noget andet...

.o) <-- One Eyed Jack

ok hvorfor vil denne her ikke slette ?

<%

SQLserveradr="mysql..dk"
SQLdatabase=""
SQLlogin=""
SQLpassword=""
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 = "delete From tilmelding Where Id = " & Cint(Request.Querystring("id")







DataConn.Close
Set DataConn = Nothing

%>

Fordi du ikke eksikvere SQL-sætningen:

DataConn.execute(strSQL)

strSQL = "delete From tilmelding Where Id = " & Cint(Request.Querystring("id")
DataConn.execute(strSQL)




DataConn.Close
Set DataConn = Nothing

%>

blank side der kommer ikke engang en fejl ?

jeg har fået den til at virke.. men hvordan sætter jeg en "er du sikker på du vil slette?" ind

Det gør du på knappen som bruges til at slette:

<input type="button" value="Slet" onClick="window.confirm('Vil du slette'){delFunk('123');}">

men der er ingen knap det er et link :-)

Så lav det på linket :o)

<a href="..." onClick="return window.confirm('Vil du slette');">slet</a>

hvordan får jeg den proppet herind ?

Response.write "<a href='slett.asp?id=" & rs("Id") & "'>"& strNavn & "</a>"

Response.write "<a href=""slett.asp?id=" & rs("Id") & """ onclick=""return window.confirm('Vil du slette');"">"& strNavn & "</a>"

nemlig mange tak måske hvis du er online i aften har jeg en rigtig god en til 200p

jeg har to tabellen "tilmeling" "venteliste" de har de samme felter så når holdet er fyldt op kommer man på ventelisten.  godt så bliver der en ledig plads og vi skal have flyttet personen fra venteliste tabellen op i tilmelding. helst ved et klik plus når man gør det skal der sendes en mail til personen hvor der står at nu er de kommet på holdet ! den er pæn vild..

her kan du se hvordan jeg lister tilmeldte og ventelister ud på en side.. der skal tilføjes et link ligesom "slet" "ret" under ventelisten så når man trykker på den laver den alt det jeg lige har skrevet :

strSQL = "Select * From tilmelding Where `holdnr` = " & Request.Querystring("id")

Set rs = DataConn.Execute(strSQL)
strNavn ="slet"
%>


<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>1. Forældres navn</td><td bgcolor='#FFCD32'><b>2. Forældres navn</td><td bgcolor='#FFCD32'><b>Adresse</td><td  bgcolor='#FFCD32'><b>Postnr</td><td  bgcolor='#FFCD32'><b>By</td><td  bgcolor='#FFCD32'><b>Telefon</td><td  bgcolor='#FFCD32'><b>Email</td><td  bgcolor='#FFCD32'><b>Barnets navn</td><td  bgcolor='#FFCD32'><b>Fødselsdato</td> <td  bgcolor='#FFCD32'><b>Holdnr</td> </tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen tilmeldte til dette hold endnu!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("for2")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
 
  Response.write "</td>"
  Response.write "</tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
DataConn.Close
Set DataConn = Nothing
%>
<BR><BR><BR>
<FONT SIZE="3" COLOR=""><B>Ventelisten</B></FONT><BR><BR>
<%

SQLserveradr="" 
SQLdatabase="_dk"
SQLlogin="_dk"
SQLpassword=""
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 * From venteliste Where `holdnr` = " & Request.Querystring("id")

Set rs = DataConn.Execute(strSQL)
strNavn ="slet"
%>


<%
Response.write "<table cellpadding='4' cellspacing='0'>"
Response.write "<tr><td bgcolor='#FFCD32'><b>1. Forældres navn</td><td bgcolor='#FFCD32'><b>2. Forældres navn</td><td bgcolor='#FFCD32'><b>Adresse</td><td  bgcolor='#FFCD32'><b>Postnr</td><td  bgcolor='#FFCD32'><b>By</td><td  bgcolor='#FFCD32'><b>Telefon</td><td  bgcolor='#FFCD32'><b>Email</td><td  bgcolor='#FFCD32'><b>Barnets navn</td><td  bgcolor='#FFCD32'><b>Fødselsdato</td> <td  bgcolor='#FFCD32'><b>Holdnr</td> <td  bgcolor='#FFCD32'><b>Slet</td></tr> <tr>"
if rs.bof or rs.eof then
  response.write "<b><font color='#ff0000'>Der er ingen tilmeldte til dette hold endnu!</b><br><br>"
else
  Do While Not rs.EOF

  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("efternavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("for2")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("adresse")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("postnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fby")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("telefon")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write "<a href=""mailto:" & rs("email") & """>" & rs("email") & "</a>"
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("fornavn")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("dato")
  Response.write "</td><td bgcolor='#FFF5D7'>"
  Response.write rs("holdnr")
  Response.write "</td><td bgcolor='#FFF5D7'>"

  Response.write "<a href=""slett.asp?id=" & rs("Id") & """ onclick=""return window.confirm('Vil du slette');"">"& strNavn & "</a>"
  Response.write "</td>"
  Response.write "</tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
DataConn.Close
Set DataConn = Nothing

her er den kode jeg bruger når man sender en alm tilmelding ud den kan vi vel genbruge lidt ?


id = Request.Form("id")
SQL = "select * from hold where id = " & id
set rs = DataConn.Execute(SQL)
holdnavn = rs("holdnavn")
holdnummer = rs("holdnr")
tider = rs("tider")
dag = rs("dag")
instruk = rs("instruktør")
pris = rs("pris")
slut = rs("sluttid")

strSQL = "Insert into tilmelding (efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, holdnr) values('" & Request.Form("efternavn") & "','" & Request.Form("forfos1") & "','" & Request.Form("for2") & "','" & Request.Form("forfos2") & "','" & Request.Form("adresse") & "','" & Request.Form("postnr") & "','" & Request.Form("fby") & "','" & Request.Form("telefon") & "','" & Request.Form("email") & "','" & Request.Form("fornavn") & "','" & Request.Form("dato") & "','" & holdnummer & "'  )"
DataConn.Execute(strSQL)

'Opdater antal tilmeldte i hold tabellen

SQL = "update hold set tilmeldte = tilmeldte + 1 where id = " & id
DataConn.Execute(SQL)


'Kode som sender mailen her:

if Request.Form("adresse") <> "" then
  Dim Mailer
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  ' Her sættes afsender navn og e-mail adresse
  Mailer.FromName  = "Tilmelding slsk.dk"
  Mailer.FromAddress= "svommeleder@slsk.dk"

  ' Afsenders mailserver RETTES TIL
  Mailer.RemoteHost = "mail.slsk.dk"

  ' Her sættes modtager navn og e-mail adresse
  Mailer.AddRecipient "" & Request.Form("efternavn"), Request.Form("email")

  ' Her sættes overskriften på mailen
  Mailer.Subject    = "Du er tilmeldt hold " & holdnavn& VbCrLf  & holdnummer

  ' Her sættes selve teksten til mailen
  Mailer.BodyText  = "Kære " & Request.Form("efternavn") & VbCrLf &  VbCrLf &"Du er tilmeldt dig: " & VbCrLf & VbCrLf &"Holdnavn: " & holdnavn & VbCrLf & "Holdnummer: " &  holdnummer & VbCrLf & "Tilmeldtes navn: " & Request.Form("fornavn") & VbCrLf & "Ugedag: " & dag & VbCrLf & "Starttid: " & tider & VbCrLf & "Sluttid: " & slut & VbCrLf & "Instruktør:  "& instruk & VbCrLf & "Pris:  "& pris & VbCrLf & VbCrLf & "Tak for din tilmelding, du vil modtage et girokort snarest. Vi glæder os til at se dig/jer" & VbCrLf & VbCrLf &"Med venlig hilsen slsk.dk."




  ' Send e-mail og skriv status
  if Mailer.SendMail then
    Response.Write ""
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if

  ' Fjern objekt igen
  Set Mailer = Nothing
end if


response.write "Du er tilmeldt holdet " & holdnavn & ". <br><br> <I>(Hvis du ikke modtager en email om lidt, kontakt venligst<a href='mailto:webmaster@slsk.dk'> webmaster@slsk.dk</a>, men inden du gør det check lige om mailen ligger i din spammappe, tak)</I>. '<br><br>Hilsen Slangerup svømmeklub.<br>"

response.End 'stopper koden her
end if


'Viser formen
SQLserveradr="..dk"
SQLdatabase=""
SQLlogin=""
SQLpassword=""
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 * From hold Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)

%><center><B>Holdet du er ved at tilmelde dig</B><BR><BR>
<TABLE cellpadding="4" cellspacing="0">
<TR>
    <TD>Holdnavn:</TD>
    <TD> <%=rs("holdnavn")%></TD>
</TR>
<TR>
    <TD>Holdnr:</TD>
    <TD><%=rs("holdnr")%></TD>
</TR>
<TR>
    <TD>Starttid:</TD>
    <TD><%=rs("tider")%></TD>
</TR>
<TR>
    <TD>Sluttid:</TD>
    <TD><%=rs("sluttid")%></TD>
</TR>
<TR>
    <TD>Dag:</TD>
    <TD><%=rs("dag")%></TD>
</TR>
<TR>
    <TD>Instruktør:</TD>
    <TD><%=rs("instruktør")%> </TD>
</TR>
<TR>
    <TD>Pris</TD>
    <TD><%=rs("pris")%></TD>
</TR>

</TABLE>



<BR>

<B>Tilmeldingsblanket</B>
<BR>

<SCRIPT LANGUAGE="JavaScript">
function Check_Form(theForm) {
  err = '';
 

  if (theForm.adresse.value == '') {
    err += "Adressen mangler\r";
  }
  if (theForm.postnr.value == '') {
    err += "Postnr mangler\r";
  }
  if (theForm.fby.value == '') {
    err += "By mangler\r";
  }
  if (theForm.telefon.value == '') {
    err += "Telefon mangler\r";
  }
  if (theForm.fornavn.value == '') {
    err += "Svømmers mangler\r";
  }
  if (theForm.dato.value == '') {
    err += "Fødelsdato mangler\r";
  }
  if (theForm.email.value == '') {
    err += "E-mail mangler\r";
  } else {
    ema = theForm.email.value;
    pos1 = ema.indexOf('@',0);
    pos2 = ema.indexOf('.',pos1);
    str = ema.substring(ema.length-1,ema.length+1);
    if (pos1 < 0 || pos2 < 0 || str == '.') {
    theForm.email.style.color = '#FFFFFF';
    theForm.email.style.backgroundColor = '#FF0000';
    err += "E-mail ikke gyldig\r";
  }
}
if (err != ''){
  alert('Følgende felter mangler at blive udfyldt:\r' + err);
  return (false);
} else {
  return (true);
}
} 
</script>
<BR><B>VIGTIGT!</B> Hvis du er ved at tilmelde dig Muslinge eller Krabbe holdene, skal du udfylde forældre felterne med navn og fødselsdato på den/de forældre der skal med i vandet.<BR><BR>
<form action="tilmelding.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

<TABLE>
<TR>
    <TD>1. Forældres navn:<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="efternavn" size="30"></TD>
</TR>
<TR>
    <TD>1. Forældres Fødselsdato<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="forfos1" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres navn :</TD>
    <TD><input type="text"  name="for2" size="30"></TD>
</TR>
<TR>
    <TD>2. Forældres fødselsdato :</TD>
    <TD><input type="text"  name="forfos2" size="30"></TD>
</TR>
<TR>
    <TD>Svømmerens navn:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fornavn" size="30"></TD>
</TR>
<TR>
    <TD>Fødselsdato:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD> <input type="text"  name="dato" size="8">(10122002)</TD>
</TR>
<TR>
    <TD>Adresse:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="adresse" size="30"></TD>
</TR>
<TR>
    <TD>Postnr:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="postnr" size="4"></TD>
</TR>
<TR>
    <TD>By:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fby" size="30"></TD>
</TR>
<TR>
    <TD>Telefon:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="telefon" size="8"></TD>
</TR>
<TR>
    <TD>Email:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="email" size="30"></TD>
</TR>

</TABLE>

<BR><BR><center>
<input type="submit" value="Tilmeld" name="send" class="knap">
</form>

Jeg smutter hjem fra arbejde nu, og kan desværre ikke love at jeg kommer online før på mandag, men du kan jo være heldig...

Hvis der ikke er sket noget inden mandag, så smid lige en kommentar herinde, så jeg får en mail, ellers glemmer jeg højest sansynlig ?'et. Har altid gang i så mange ? på en gang, at jeg ikke kan holde styr på dem selv. Er altid et problem når E's mailsystem går ned :o)

Om ikke andet så god ferie, hvis du har sådan noget...