Fejlen[e] er??

sådan åbner jeg til min sqlserver:
Conn.Open \"dsnnavn\", \"username\", \"password\"


Hvilken DBMS bruger du?

Jamen jeg er sådan set ikke interesseret i at skulle lave brugernavn + kode der.
Allerede for at komme ind på siden, skal man logge på....

Det jeg har skrevet der, er en del af en \"fuld\" side, som er således: [bemærk at jeg er igang med at \"udfylde\" felterne, men blot har startet foroven og arbejder mig stille nedad]

-----------------------

<%

Navn = request.Form(\"Navn\")
Orgnavn = request.Form(\"Orgnavn\")
Aarstal = request.Form(\"Aarstal\")
Varighed = request.Form(\"Varighed\")
Aldre = request.Form(\"Aldre\")
Handling = request.Form(\"Handling\")
Mening = request.Form(\"Mening\")
Status = request.Form(\"Status\")
Oprettelse = request.Form(\"Oprettelse\")
Skuespiller = request.Form(\"Skuespiller\")
Sprog = request.Form(\"Sprog\")
Subtitel = request.Form(\"Subtitel\")
DVDformat = request.Form(\"DVDformat\")
Billedformat = request.Form(\"Billedformat\")
Lydformat = request.Form(\"Lydformat\")
Features = request.Form(\"Features\")

%>



<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>title>
<base target=\"_self\">
<script>
function detect()
{
framesetpage=\"default.asp\";
thispage=window.location.href;
if (thispage.indexOf(\'://\')<0) {thispage=\"://\"+thispage;};
prefix=thispage.substring(0,thispage.lastIndexOf(\'://\'));
suffix=thispage.substring(thispage.lastIndexOf(\'://\')+3,thispage.length);
// alert(\'the subpage is:[\'+prefix+\'][\'+suffix+\']\');
if (parent.location.href==window.location.href) {parent.location.href=framesetpage+\"?\"+prefix+\"&&&\"+suffix};
}
</script>
<link REL=\"stylesheet\" HREF=\"base.css\" TYPE=\"text/css\">
</head>

<body background=\"lay/bgL.gif\" bgcolor=\"#333366\" topmargin=\"0\" leftmargin=\"0\" onLoad=\"detect()\">
<div align=\"left\">
<table border=\"0\" width=\"96%\" class=\"td\" cellspacing=\"8\">
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Filmens Navn:</td>
    <td class=\"td\"><INPUT class=input name=Navn size=30 value=<% =Navn%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Originalt Navn:</td>
    <td class=\"td\"><INPUT class=input name=Orgnavn size=30 value=<% =Orgnavn%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Udgivet År:</td>
    <td class=\"td\"><INPUT class=input name=Aarstal size=30 value=<% =Aarstal%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Varighed:</td>
    <td class=\"td\"><INPUT class=input name=Varighed size=30 value=<% =Varighed%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Alder For At Se:</td>
    <td class=\"td\"><INPUT class=input name=Aldre size=30 value=<% =Aldre%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Handling:</td>
    <td class=\"td\"><TEXTAREA cols=25 name=\"Handling\" onfocus=this.select(); rows=10>
    <% =Handling %></TEXTAREA>
</td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Mening:</td>
    <td class=\"td\"><TEXTAREA cols=25 name=\"Mening\" onfocus=this.select(); rows=10>
    <% =Mening %></TEXTAREA></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Status:</td>
    <td class=\"td\">
    <%
Set con = Server.CreateObject(\"ADODB.Connection\")
con.Open \"DSN=dvd\"
SQL = \"SELECT * FROM Film\"
Set rs = con.Execute(SQL)
While Not rs.EOF
%>
    <Select Name=\"Status\">
<option value=\"<%=rs(\"Status\")%>\"><%=objRec(\"Status\")%>
    <%
    rs.MoveNext
    Wend
    rs.Close
    %>
</Select>
</td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Oprettelse:</td>
    <td class=\"td\"><INPUT class=input name=Oprettelse size=30 value=<% =Oprettelse%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Skuespillere:</td>
    <td class=\"td\">
    <INPUT class=input name=Skuespil size=30 value=<% =Skuespil%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Sprog:</td>
    <td class=\"td\"><INPUT class=input name=Sprog size=30 value=<% =Sprog%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Undertekster:</td>
    <td class=\"td\"><INPUT class=input name=Subtitel size=30 value=<% =Subtitel%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">DVD\'ens Format:</td>
    <td class=\"td\"><SELECT name=DVDFormat>
    <OPTION class=input selected value=DVDformat>DVDskivens format</OPTION>
    <OPTION class=input selected value=DVD5>DVD5</OPTION>
    <OPTION class=input selected value=DVD9>DVD9</OPTION>
    </SELECT></td>
</tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Billed-format:</td>
    <td class=\"td\"><INPUT class=input name=Billedformat size=30 value=<% =Billedformat%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Lyd-format:</td>
    <td class=\"td\"><INPUT class=input name=Lydformat size=30 value=<% =Lydformat%>></td>
  </tr>
<tr>
    <td width=\"120\" class=\"td\" valign=\"top\" align=\"left\">Features:</td>
    <td class=\"td\"><INPUT class=input name=Features size=30 value=<% =Features%>></td>
  </tr>
<TR>
    <TD>
    <TD><INPUT class=button type=submit value=Tilføj&nbsp;Filmen>&nbsp; <INPUT class=button type=reset value=\"Glem&nbsp;Det\">
</TR>
</table>

</div>

</body>
</html>


<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"dvd.mdb\")
Sql = \"insert into DVD (ID, Navn, Orgnavn, Aarstal, Varighed, Aldre, Handling, Mening, Status, Oprettelse, Skuespiller, Sprog, Subtitel, DVDformat, Billedformat, Lydformat, Features)  Values(\'\" & IDnr & \"\', \'\" & Navn & \"\', \'\" & Orgnavn & \"\', \'\" & Aarstal & \"\', \'\" & Varighed & \"\', \'\" & Aldre & \"\', \'\" & Handling & \"\', \'\" & Mening & \"\', \'\" & Status & \"\', \'\" & Oprettelse & \"\', \'\" & Skuespiller  & \"\', \'\" & Sprog & \"\', \'\" & Subtitel & \"\', \'\" & DVDformat & \"\', \'\" & Billedformat & \"\', \'\" & Lydformat & \"\', \'\" & Features & \"\')\"
Conn.execute( Sql )
Conn.close
response.Redirect(\"done.asp\")
%>

Denne linie:
con.Open \"DSN=Contact\"
Så leder con efter en ODBC DSN navn Contact. Du skal så opsætte ODBC via control panelet. I ODBS lav en ny og kald den Contact og peg på din database.

ELLER:

Jeg ville benytte:
con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"DVD.mdb\")

Databasen skal så ligge sammen de .asp filerne.

øhhhh..... det der ud til at du vil bruge dsn\'er og ikke dsn\'er... sammen.... bare hold dig til: Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"dvd.mdb\")

i hele din kode

hmm Du skriver tabellen hedder Status, i SQL sætningen er Tabellens navn DVD.
Prøv at ændre i starten af din SQL sætning.
Sql = \"insert into Status (ID,............

Hvis du indsætter tal i databasen skal du ikke hvade \'\' omkring. Her tænker jeg på IDnr.

tænker lige \"højt\" herinde:

Selve databasen hedder jo DVD, mens tabellen jeg skal trække ud af lige her må hedde.... Status.

Lige nu står der:
    <td class=\"td\">
    <%
Set con = Server.CreateObject(\"ADODB.Connection\")
con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"DVD.mdb\")
SQL = \"SELECT * FROM Status\"
Set rs = con.Execute(SQL)
While Not rs.EOF
%>
    <Select Name=\"Status\">
<option value=\"<%=rs(\"Status\")%>\"><%=objRec(\"Status\")%>
    <%
    rs.MoveNext
    Wend
    rs.Close
    %>
</Select>
</td>

og dette melder fejl til mig.. \"undefined\"..

rettes det til:
    <td class=\"td\">
    <%
Set con = Server.CreateObject(\"ADODB.Connection\")
con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"DVD.mdb\")
SQL = \"SELECT * FROM STF\"
Set rs = con.Execute(SQL)
While Not rs.EOF
%>
    <Select Name=\"Status\">
<option value=\"<%=rs(\"Status\")%>\"><%=objRec(\"Status\")%>
    <%
    rs.MoveNext
    Wend
    rs.Close
    %>
</Select>
</td>

er der ingen fejl, men til gengæld heller ikke en \"rullemenu\"
STF vil jeg ikke bruge, da den ikke har nogen funktion...

Status indeholder ikke \"ID\", men blot de 5 felter jeg har tastet ind, og som er meningen jeg skal kunne vælge imellem.

<option value=\"<%=rs(\"Status\")%>\"><%=rs(\"Status\")%>

<option value=\"<%=rs(\"Status\")%>\"><%=objRec(\"Status\")%>

Hvor kommer objRec fra? det er også et recordset så vidt jeg kan se. Men du har ikke en Set objRec ?!? måske et andet sted.

Hvilken fejl får du?

bare \"undefined\"? ikke noget andet...

ErikJ ser ud til at have ret, men nu gør den andet sjov *suk*
nr 1, 3 og 5 er \"pulldown\" - en hver for sig, kun indeholdende sig selv.
2 & 4 er \"alm\" tekst.

Tænkte så, hvorfor hvad 2 <%=rs(\"Status\")%> og fjernede den sidste... men det gav blot 3 tomme pulldown.

Den første rs-er er den værdi du kan aflæse i JavaScript, PHP, ASP, den
anden rs-er er det brugeren ser. De behøver ikke være ens, men kan jo
være det!

HVad indeholder tabellen STF ? Prøv Film, som du gjorde oprindeligt

Eller siger du, at du har en tabel, der hedder status ???

STF indeholder blot \"status\" og \"film\" - altså en binding mellem de 2 tabeller.

Nej, har kun 1 database = DVD.mdb
og ja.. har en tabel der er navngivet \"status\".

\"Film\" hjælper ikke, så er det blot et tomt felt..

Har du prøvet \"select * from status\" ??

ja, det er den jeg har kørt med det mest af tiden....

Spekulerer lige, forsøger en DEL mere, og leger videre.

Men er lige away et par timer, da jeg skal ud og bage boller mv. til mandens frokostpause...

Da jeg sidder med en ven og knokler på det, og dermed er det startet HELT forfra i koden, kan jeg hverken fortælle hvad fejlen var eller andet.
Koden er lavet helt om :O(

Men tak for hjælpen igen.