Hejsa,
jeg er ved at lave en hjemmeside der kan vise skemaet for det gymnasium
hvor jeg er skemalægger. Det layoutudkast jeg har lavet kan ses her:
http://www.toender-gym.dk/koll/jc/skemaudkast.htm
Meningen er at man ved klik på en pulldownmenu genloader siden og så
laver relevante databaseopslag. Men jeg kan ikke få det til at virke.
På siden
http://www.toender-gym.dk/koll/jc/skema.asp
hvor jeg har tilføjet asp-kode (vbscript) får jeg følgende fejl:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in
conflict with one another.
/koll/jc/skema.asp, line 37
Fejlen kommer i den følgende funktion og det er linien objRS.Open retur
browseren brokker sig over.
Function Datahent(dag,modul)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Data Source=skema;User ID=;Password=;"
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn
If elnavn<>"" Then
retur = "SELECT wintp.titel, wintp.laerer, wintp.lokale"
retur = retur & "FROM GASdata INNER JOIN wintp ON
GASdata.Hold = wintp.titel"
retur = retur & "WHERE (((wintp.dag)='" & dag &"') AND
((wintp.modul)=" & modul & ") "
retur = retur & "AND ((GASdata.Navn)='" & elevnavn & "'))"
ElseIf laenavn<>"" Then
retur = "SELECT wintp.titel, wintp.laerer, wintp.lokale
FROM wintp"
retur = retur & "WHERE (((wintp.laerer)='" &
laerer_navn
retur = retur & "') AND ((wintp.dag)='" & dag & "') AND
((wintp.modul)=" & modul & "))"
ElseIf laeinit<>"" Then
retur = "SELECT wintp.titel, wintp.laerer,
wintp.lokale FROM wintp"
retur = retur & "WHERE (((wintp.laerer)='" &
laerer_initialer
retur = retur & "') AND ((wintp.dag)='" & dag & "')
AND ((wintp.modul)=" & modul & "))"
ElseIF lok<>"" Then
retur = "SELECT wintp.titel, wintp.laerer,
wintp.lokale FROM wintp"
retur = retur & "WHERE (((wintp.lokale)='" &
rum
retur = retur & "') AND ((wintp.dag)='" & dag &
"') AND ((wintp.modul)=" & modul & "))"
Else
Datahent = ""
retur = Null
End If
objRS.Open retur
objRS.Close
obj.Conn close
Datahent = objRS(1) & " " & objRS(2) & " " & objRS(3)
End Function
Databasen er lavet i access og består af to tabeller, en med elevnavne
og deres hold, og en med de rå skemadata, dvs. linier der kobler hold
med lærere, lokaler og tidspunkter. I access kan jeg få alle mine
sql-sætninger til at virke så jeg er lidt på bar bund.
Jeg er også lidt usikker på om mine pulldownmenuer er korrekte så jeg
tager lige et forkortet eksempel med også
<form name="initialer_laerer" method="post"
action="skema.asp">
<p><select onChange="loadpage(this)" size="1"
name="laerer_initialer">
<option value="">Vælg lærer efter
initialer</option>
<option value="AH">AH</option>
<option value="AO">AO</option>
<option value="BB">BB</option>
<option value="No">No</option>
<option value="Ja">Ja</option>
</select></p>
</form><% laeinit = request.form %>
Jeg er ikke sikker på om mine variable bliver gemt så de kommer med når
siden genindlæses.
Endelig er der kaldet af selve funktionen Datahent
<td width="16%" align="center">9:50-11:20</td>
<td width="16%"><% strA = Datahent("manu",2)
Response.Write HTMLEncode(strA) %> </td>
<td width="17%"><% strA = Datahent("tiru",2)
Response.Write HTMLEncode(strA) %> </td>
<td width="17%"><% strA = Datahent("onsu",2)
Response.Write HTMLEncode(strA) %> </td>
<td width="17%"><% strA = Datahent("toru",2)
Response.Write HTMLEncode(strA) %> </td>
<td width="17%"><% strA = Datahent("freu",2)
Response.Write HTMLEncode(strA) %> </td>
mvh
Jonas
--
This is an automatic signature of MesNews.
Site :
http://mesnews.no-ip.com