|
|
 | Newbie problem
Fra : Jesper Kjøller |
Dato : 07-12-01 18:02 |
|
Jeg anvender Dreamweaver UltraDev, der kan lave dynamiske sider, uden at man
skal ned og kode. Det er fint så længe det virker, men jeg er lidt på
herrens mark, når jeg får en fejl. Jeg ved ikke hvordan man debugger
asp-koden.
Jeg har lavet en *.asp-side, der skal opdatere min database. Sålænge jeg kun
har et par af felterne med, går det. Men når jeg har flere med får jeg denne
fejl:
a.. Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT
INTO-sætningen.
/TMPqnu6cnzg7g.asp, line 90
Men den sætning kan jeg ikke finde i koden?
Det er sikkert helt banalt, men jeg vil være taknemmelig for en fingerpeg i
den rigtige retning.
/Jesper
| |
 MaRk! (07-12-2001)
| Kommentar
Fra : MaRk! |
Dato : 07-12-01 20:40 |
|
Jesper Kjøller wrote in dk.edb.internet.webdesign.serverside.asp:
> Jeg anvender Dreamweaver UltraDev, der kan lave dynamiske sider, uden at man
> skal ned og kode. Det er fint så længe det virker, men jeg er lidt på
> herrens mark, når jeg får en fejl. Jeg ved ikke hvordan man debugger
> asp-koden.
>
> Jeg har lavet en *.asp-side, der skal opdatere min database. Sålænge jeg kun
> har et par af felterne med, går det. Men når jeg har flere med får jeg denne
> fejl:
>
> a.. Fejltype:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
> [Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT
> INTO-sætningen.
> /TMPqnu6cnzg7g.asp, line 90
>
> Men den sætning kan jeg ikke finde i koden?
>
> Det er sikkert helt banalt, men jeg vil være taknemmelig for en fingerpeg i
> den rigtige retning.
>
> /Jesper
>
>
>
>
>
Ikke fordi jeg ved så meget om det, men se om der er en fejl i linje 90
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
Jesper Kjøller (07-12-2001)
| Kommentar
Fra : Jesper Kjøller |
Dato : 07-12-01 21:37 |
|
> Ikke fordi jeg ved så meget om det, men se om der er en fejl i linje 90
>
Som sagt: Jeg kan ikke finde den sætning i koden. Heller ikke i linie 90.
/Jesper
| |
 Henrik Hejbøl Jensen (07-12-2001)
| Kommentar
Fra : Henrik Hejbøl Jensen |
Dato : 07-12-01 22:17 |
|
"Jesper Kjøller" <jesper-kjoller@vip.cybercity.dk> skrev i en meddelelse
news:9ur99r$579$1@news.cybercity.dk...
> > Ikke fordi jeg ved så meget om det, men se om der er en fejl i linje 90
> >
>
> Som sagt: Jeg kan ikke finde den sætning i koden. Heller ikke i linie 90.
>
> /Jesper
Prøv at poste koden omkring linie 90.
\Henrik
| |
Jesper Kjøller (08-12-2001)
| Kommentar
Fra : Jesper Kjøller |
Dato : 08-12-01 15:08 |
|
> Prøv at poste koden omkring linie 90.
>
> \Henrik
>
Her er linie 85 til 95:
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
/Jesper
| |
Martin Kruse (09-12-2001)
| Kommentar
Fra : Martin Kruse |
Dato : 09-12-01 07:17 |
|
"Jesper Kjøller" <jesper-kjoller@vip.cybercity.dk> skrev i en meddelelse
news:9ut6rk$2btp$1@news.cybercity.dk...
> > Prøv at poste koden omkring linie 90.
> >
> > \Henrik
> >
>
> Her er linie 85 til 95:
>
> If (Not MM_abortEdit) Then
> ' execute the insert
> Set MM_editCmd = Server.CreateObject("ADODB.Command")
> MM_editCmd.ActiveConnection = MM_editConnection
> MM_editCmd.CommandText = MM_editQuery
> MM_editCmd.Execute
> MM_editCmd.ActiveConnection.Close
>
> If (MM_editRedirectUrl <> "") Then
> Response.Redirect(MM_editRedirectUrl)
> End If
>
> /Jesper
>
>
INSERT INTO-sætningen er desværre ikke her ser det ud til.
Du skal finde et sted hvor linjen starter med:
EtVariableNavn = "INSERT INTO..."
Det er denne linje der er fejl i.
Det ser ud til at "EtVariableNavn" i dit tilfælde godt kan være
"MM_editQuery", men man kan aldrig vide.
Hvis du kan poste alt før linje 90 er det sikkert nemmere at finde fejlen
for os.
--
MK
http://www.msdesign.dk
Professionelt webdesign til fornuftige priser
| |
Jesper Kjøller (09-12-2001)
| Kommentar
Fra : Jesper Kjøller |
Dato : 09-12-01 19:51 |
|
> Hvis du kan poste alt før linje 90 er det sikkert nemmere at finde fejlen
> for os.
>
OK, her er hele smøren:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/underviser.asp" -->
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = MM_underviser_STRING
MM_editTable = "underviser_data"
MM_editRedirectUrl = "valg.htm"
MM_fieldsStr =
"Id|value|klinik|value|fornavn|value|efternavn|value|adresse_1|value|adresse
_2|value|post_nr|value|by|value|land|value"
MM_columnsStr =
"Id|none,none,NULL|klinik|',none,''|fornavn|',none,''|efternavn|',none,''|ad
resse_1|',none,''|adresse_2|',none,''|post_nr|none,none,NULL|by|',none,''|la
nd|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And
Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ")
values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
set input_underviser = Server.CreateObject("ADODB.Recordset")
input_underviser.ActiveConnection = MM_underviser_STRING
input_underviser.Source = "SELECT * FROM underviser_data"
input_underviser.CursorType = 0
input_underviser.CursorLocation = 2
input_underviser.LockType = 3
input_underviser.Open()
input_underviser_numRows = 0
%>
| |
|
|