＆QUOT; Microsoft VBScript运行时错误“800a000d'800a000d' [英] "Microsoft VBScript runtime error '800a000d' '800a000d'

问题描述

我的下一个code，它的工作原理如下：

1. 从一个网址，接收一些参数


2. 插入此数据到一个表称为客户端


3. 然后我选择客户表推出了最后的数据


4. 在最后，它试图插入此数据到另一个表称为用户。

但我发现了这个错误：

Microsoft VBScript运行时错误800a000d''800a000d

类型不匹配：[字符串：INSERT INTO伽利略]

/createClient.asp 50行

该行50这是一种：

 ＆LT;％
    昏暗insertaUsuario
    设置insertaUsuario =的Server.CreateObject（ADODB.Recordset）
    insertaUsuario.ActiveConnection = MM_trucks_STRING
    '+替换（posicionFechaFin__MMColParam，'，'）+'
    insertaUsuario.Source =INSERT INTO galileo.users（电子邮件，密码，客户端ID）VALUES（'+（selecciona.Fields.Item（电子邮件）。值）+，+（selecciona.Fields.Item（ 密码）。值）+，+（selecciona.Fields.Item（ID）。值）+'
    insertaUsuario.Open（）
    ％GT;
 

这是完整的code：

 ＆LT;％@ LANGUAGE =VBSCRIPTcodePAGE =65001％＆GT;
    ＆LT;！ - ＃include文件=连接/ global.asp - ＆GT;
    ＆LT;％
    昏暗inserta__MMColParamEmail
    inserta__MMColParamEmail =1
    如果（的Request.QueryString（电子邮件）＆LT;＆gt;中），然后
      inserta__MMColParamEmail =的Request.QueryString（电子邮件）
    万一
    ％GT;
    ＆LT;％
    昏暗inserta__MMColParamPassword
    inserta__MMColParamPasswordd =1
    如果（的Request.QueryString（密码）＆LT;＆gt;中），然后
      inserta__MMColParamPassword =的Request.QueryString（密码）
    万一
    ％GT;    ＆LT;％
    昏暗INSERTA
    设置INSERTA =的Server.CreateObject（ADODB.Recordset）
    inserta.ActiveConnection = MM_trucks_STRING
    '+替换（posicionFechaFin__MMColParam，'，'）+'
    inserta.Source =INSERT INTO galileo.clients（电子邮件，密码）的值（'+替换（inserta__MMColParamEmail，'，'）+'，'+替换（inserta__MMColParamPassword，'，' '）+'）
    inserta.Open（）
    ％GT;
    ＆LT;％    昏暗selecciona
    昏暗selecciona_numRows    设置selecciona =的Server.CreateObject（ADODB.Recordset）
    selecciona.ActiveConnection = MM_trucks_STRING
    selecciona.Source =选择客户ID，电子邮件，密码，其中电子邮件='+替换（inserta__MMColParamEmail，'，''）+'和密码='+替换（inserta__MMColParamPassword，'， ''）+'
    selecciona.CursorType = 0
    selecciona.CursorLocation = 2
    selecciona.LockType = 1
    selecciona.Open（）    selecciona_numRows = 0
    ％GT;
    ＆LT;％=（selecciona.Fields.Item（ID）值。）％GT中，＆lt;％=（selecciona.Fields.Item（电子邮件）值。）％GT中，＆lt;％=（selecciona 。.Fields.Item（密码）值）％GT;
    ＆LT;％
    昏暗insertaUsuario
    设置insertaUsuario =的Server.CreateObject（ADODB.Recordset）
    insertaUsuario.ActiveConnection = MM_trucks_STRING
    '+替换（posicionFechaFin__MMColParam，'，'）+'
    insertaUsuario.Source =INSERT INTO galileo.users（电子邮件，密码，客户端ID）VALUES（'+（selecciona.Fields.Item（电子邮件）。值）+，+（selecciona.Fields.Item（ 密码）。值）+，+（selecciona.Fields.Item（ID）。值）+'
    insertaUsuario.Open（）
    ％GT;    ＆LT;！ - 如果一切OK，它重定向 - ＆GT;
    ＆LT;％的Response.Redirect（Default.asp的）％＆GT;
 

解决方案

您缺少一个'）'后，在您的SQL字符串的最后一个。但我不知道为什么你得到这样的错误信息，但。

I have the next code, which works as follows:

1. Receive some parameters from an url
2. Insert this data into a table called clients
3. Then I select the last data introduced in the clients table
4. At last, it tries to insert this data into another table called users.

But I'm getting this error:

"Microsoft VBScript runtime error '800a000d' '800a000d'

Type mismatch: '[string: "INSERT INTO galileo."]'

/createClient.asp, line 50

The line 50 is this one:

 <%
    Dim insertaUsuario
    Set insertaUsuario = Server.CreateObject("ADODB.Recordset")
    insertaUsuario.ActiveConnection = MM_trucks_STRING
    '" + Replace(posicionFechaFin__MMColParam, "'", "''") + "'
    insertaUsuario.Source = "INSERT INTO galileo.users (email,password,clientid) values ('"+(selecciona.Fields.Item("email").Value)+"','"+(selecciona.Fields.Item("password").Value)+"', '" + (selecciona.Fields.Item("id").Value)+ "'"
    insertaUsuario.Open()
    %>

And this is the full code:

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
    <!--#include file="connects/global.asp" -->
    <%
    Dim inserta__MMColParamEmail
    inserta__MMColParamEmail = "1"
    If (Request.QueryString("email") <> "") Then 
      inserta__MMColParamEmail = Request.QueryString("email")
    End If
    %>
    <%
    Dim inserta__MMColParamPassword
    inserta__MMColParamPasswordd = "1"
    If (Request.QueryString("password") <> "") Then 
      inserta__MMColParamPassword = Request.QueryString("password")
    End If
    %>

    <%
    Dim inserta
    Set inserta = Server.CreateObject("ADODB.Recordset")
    inserta.ActiveConnection = MM_trucks_STRING
    '" + Replace(posicionFechaFin__MMColParam, "'", "''") + "'
    inserta.Source = "INSERT INTO galileo.clients (email,password) values ('" + Replace(inserta__MMColParamEmail, "'", "''") + "','" + Replace(inserta__MMColParamPassword, "'", "''") + "')"
    inserta.Open()
    %>
    <%

    Dim selecciona
    Dim selecciona_numRows

    Set selecciona = Server.CreateObject("ADODB.Recordset")
    selecciona.ActiveConnection = MM_trucks_STRING
    selecciona.Source = "SELECT id, email, password from clients where email='" + Replace(inserta__MMColParamEmail, "'", "''") + "' and password='" + Replace(inserta__MMColParamPassword, "'", "''") + "'"
    selecciona.CursorType = 0
    selecciona.CursorLocation = 2
    selecciona.LockType = 1
    selecciona.Open()

    selecciona_numRows = 0
    %>
    <%= (selecciona.Fields.Item("id").Value)%>, <%= (selecciona.Fields.Item("email").Value) %>, <%= (selecciona.Fields.Item("password").Value) %>


    <%
    Dim insertaUsuario
    Set insertaUsuario = Server.CreateObject("ADODB.Recordset")
    insertaUsuario.ActiveConnection = MM_trucks_STRING
    '" + Replace(posicionFechaFin__MMColParam, "'", "''") + "'
    insertaUsuario.Source = "INSERT INTO galileo.users (email,password,clientid) values ('"+(selecciona.Fields.Item("email").Value)+"','"+(selecciona.Fields.Item("password").Value)+"', '" + (selecciona.Fields.Item("id").Value)+ "'"
    insertaUsuario.Open()
    %>

    <!--If it is all ok, it redirects-->
    <% Response.redirect ("default.asp")%>

解决方案

You are missing a ')' after the last ' in your SQL string. But I am not sure why you get this kind of error message though.

这篇关于＆QUOT; Microsoft VBScript运行时错误“800a000d'800a000d'的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！