Jeg har to ASP-Filer: opdaterUdstyr.asp & opdater.asp
opdaterUdstyr.asp, ser ud som følger:
<body>
<h1>Indtast oplysninger om udstyret</h1>
<TABLE WIDTH="100%">
<TR><TD COLSPAN="4"><HR></TD></TR>
<FORM ACTION="opdater.asp?mode=tilføj" METHOD="POST">
<TR><TD>Host:</TD><TD><INPUT TYPE="TEXT" NAME="Host"></TD></TR>
<TR><TD>Hostnavn:</TD><TD><INPUT TYPE="TEXT"
NAME="Hostnavn"></TD></TR>
<TR><TD>IP_Adresse:</TD><TD><INPUT TYPE="TEXT"
NAME="IP_adresse"></TD></TR>
<TR><TD>Netmaske:</TD><TD><INPUT TYPE="TEXT"
NAME="netmaske"></TD></TR>
<TR><TD>Router:</TD><TD><INPUT TYPE="TEXT"
NAME="router"></TD></TR>
<TR><TD>PLA:</TD><TD><INPUT TYPE="TEXT" NAME="pla"></TD></TR>
<TR><TD>AET Send/Rcv:</TD><TD><INPUT TYPE="TEXT"
NAME="aet_send_rcv"></TD></TR>
<TR><TD>TCP Port:</TD><TD><INPUT TYPE="TEXT"
NAME="tcp_port"></TD></TR>
<TR><TD>AET Query:</TD><TD><INPUT TYPE="TEXT"
NAME="aet_query"></TD></TR>
<TR><TD>TCP Port2:</TD><TD><INPUT TYPE="TEXT"
NAME="tcp_port2"></TD></TR>
<TR><TD>Placering:</TD><TD><INPUT TYPE="TEXT"
NAME="placering"></TD></TR>
<TR><TD>Software:</TD><TD><INPUT TYPE="TEXT"
NAME="software"></TD></TR>
<TR><TD>Serienummer:</TD><TD><INPUT TYPE="TEXT"
NAME="serienr"></TD></TR>
<TR><TD>Operativsystem:</TD><TD><INPUT TYPE="TEXT"
NAME="os"></TD></TR>
<TR><TD>OS Certificeringsnummer:</TD><TD><INPUT TYPE="TEXT"
NAME="os_cert_nr"></TD></TR>
<TR><TD>Applikations version:</TD><TD><INPUT TYPE="TEXT"
NAME="app_ver"></TD></TR>
<TR><TD>Applikations numnmer:</TD><TD><INPUT TYPE="TEXT"
NAME="app_nr"></TD></TR>
<TR><TD>Applikations password:</TD><TD><INPUT TYPE="TEXT"
NAME="app_password"></TD></TR>
<TR><TD>OS Brugernavn:</TD><TD><INPUT TYPE="TEXT"
NAME="os_brugernavn"></TD></TR>
<TR><TD>OS Password:</TD><TD><INPUT TYPE="TEXT"
NAME="os_password"></TD></TR>
<TR><TD>Leverandør Monitor:</TD><TD><INPUT TYPE="TEXT"
NAME="lev_monitor"></TD></TR>
<TR><TD>Leverandør PC:</TD><TD><INPUT TYPE="TEXT"
NAME="lev_pc"></TD></TR>
<TR><TD>Identifikationsnummer:</TD><TD><INPUT TYPE="TEXT"
NAME="identnr"></TD></TR>
<TR><TD>Pentium:</TD><TD><INPUT TYPE="TEXT"
NAME="pentium"></TD></TR>
<TR><TD>Frekvens:</TD><TD><INPUT TYPE="TEXT"
NAME="frekvens"></TD></TR>
<TR><TD>Ram:</TD><TD><INPUT TYPE="TEXT" NAME="ram"></TD></TR>
<TR><TD>Diverse:</TD><TD><INPUT TYPE="TEXT"
NAME="diverse"></TD></TR>
<TR><TD>Placeret i:</TD><TD><INPUT TYPE="TEXT"
NAME="placeret_i"></TD></TR>
<TR><TD>Rum betegnelse:</TD><TD><INPUT TYPE="TEXT"
NAME="rum_betegn"></TD></TR>
<TR><TD>Rum nummer:</TD><TD><INPUT TYPE="TEXT"
NAME="rum_nr"></TD></TR>
<h2>Vælg udstyrstype</h2>
<%Dim strUdstyrstype%>
<table width="200" id="udstyrstype">
<tr>
<td><label>
<input <%If (CStr("udstyrstype") = CStr("ris")) Then
Response.Write("CHECKED") : strUdstyrstype = "ris"%>
name="udstyrstype" type="radio" value="ris" checked>
RIS</label></td>
</tr>
<tr>
<td><label>
<input <%If (CStr("udstyrstype") = CStr("pacs")) Then
Response.Write("CHECKED") : strUdstyrstype = "pacs"%>
type="radio" name="udstyrstype" value="pacs">
PACS</label></td>
</tr>
<tr>
<td><label>
<input <%If (CStr("udstyrstype") = CStr("andre")) Then
Response.Write("CHECKED") : strUdstyrstype = "andre"%>
type="radio" name="udstyrstype" value="andre">
ANDRE</label></td>
</tr>
<TR><TD COLSPAN="2"><INPUT TYPE="SUBMIT"
VALUE="Tilføj"></TD></TR>
</form>
</table>
</body>
opdater.asp, ser ud som følger:
<%
Host = request.Form("Host")
Hostnavn = request.form("Hostnavn")
IP_Adresse = request.form("IP_adresse")
Netmaske = request.form("netmaske")
Router = request.form("router")
PLA = request.form("pla")
AET_Send_Rcv = request.form("aet_send_rcv")
TCP_Port = request.form("tcp_port")
AET_Query = request.form("aet_query")
TCP_Port2 = request.form("tcp_port2")
Placering = request.form("placering")
Software = request.form("software")
Serie_nr = request.form("serienr")
OS = request.form("os")
OS_Cert_nr = request.form("os_cert_nr")
OS_Brugernavn = request.form("os_brugernavn")
OS_Password = request.form("os_brugernavn")
App_Ver = request.form("app_ver")
App_nr = request.form("app_nr")
App_Password = request.form("app_password")
Lev_monitor = request.form("lev_monitor")
Lev_PC = request.form("lev_pc")
identnr = request.form("identnr")
Pentium = request.form("pentium")
Frekvens = request.form("frekvens")
Ram = request.form("ram")
Diverse = request.form("diverse")
Placeret_i = request.form("placeret_i")
Rum_betegnelse = request.form("rum_betegn")
Rum_nummer = request.form("rum_nr")
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=C:/Inetpub/wwwroot/database/Udstyr.mdb" '&
Server.MapPath("/cgi-bin/database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
if Request("mode") = "tilføj" Then
Conn.execute("Insert into udstyr (Host, Hostnavn, ip_adresse,
netmaske, router, pla, aet_send_rcv, tcp_port, aet_query,
tcp_port2, placering, software, serienr, os,
os_certificate_number, os_username, os_password,
application_version, application_number, application_password,
leverandør_monitor, leverandør_pc, identnr, pentium, frekvens,
ram, diverse, placeret_i, rum_betegnelse, rum_nr, udstyrstype)
values('" & Host & "', '" & Hostnavn & "', '" & IP_Adresse & "',
'" & Netmaske & "', '" & Router & "', '" & PLA & "', '" &
AET_Send_Rcv & "', '" & TCP_Port & "', '" & AET_Query & "', '" &
TCP_Port2 & "', '" & Placering & "', '" & Software & "', '" &
Serie_nr & "', '" & OS & "', '" & OS_Cert_nr & "', '" &
OS_Brugernavn & "', '" & OS_Password & "', '" & App_Ver & "', '"
& App_nr & "', '" & App_Password & "', '" & Lev_monitor & "', '"
& Lev_PC & "', '" & identnr & "', '" & Pentium & "', '" &
Frekvens & "', '" & Ram & "', '" & Diverse & "', '" & Placeret_i
& "', '" & Rum_betegnelse & "', '" & Rum_nummer & "', '" &
strUdstyrstype & "')") & Response.Write("Enheden er indsat")
else Response.Write("Den er ikke indsat")
end if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
'Response.Redirect("opdaterUdstyr.asp")
%>
Når jeg klikker på knappen "Tilføj", kommer den med følgende
fejl-melding:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge
en opdaterbar forespørgsel.
/adm/opdater.asp, line 41
Kan en eller anden fortælle mig, hvor fejlen ligger, så ville det
være dejligt.
På forhånd tak
Michael
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials