indsætte flere poster samme tid

Hejsa

Jeg har fået lavet noget kode her som udemærket kan indsætte en string. Hvordan får jeg det til at være muligt at indsætte flere variabler på samme tid.

Jeg har 2 tekstboke, hvoraf den ene (hylde) skal tjekke at hylden overhovedet eksisterer. Den anden er info som skal opdateres inden i databasen.

Jeg vil gerne have at begge tekstbokse skal kunne klare flere strenge, som (hylde) 11, 12, 13, 14, 15 etc.  og (info)info1, info2, info3 etc.

Hvis en af hylderne ikke eksisterer skal det sættes til false, men hvis alle hylder er der, skal alt info ind i databasen.

Her er koden, hvis i har brug for yderlig forklaring så bare sig til.

<%
     
Dim hylde, info
hylde =Trim( Request("hylde"))
info = Trim(Request("info"))

  Dim myConnection
  Set myConnection=Server.CreateObject("ADODB.Connection")
    myConnection.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("../database/jn.mdb")
    myConnection.Open
  Dim loginSQL
    LoginSQL = "SELECT * FROM trial WHERE hylde = '" & hylde & "'"
  Dim myRS
    Set myRS=Server.CreateObject("ADODB.Recordset")
      myRS.Open loginSQL, myConnection
  Dim mainMessage
    If myRS.EOF Then
      mainMessage="hyldeInfo=false"
    Else
      If(StrComp(myRS("hylde"), hylde, vbTextCompare) =0) Then
        set opdater = myConnection.execute("UPDATE trial SET info = '"&info&"' WHERE hylde = '"&hylde&"'")
        mainMessage="hyldeInfo=true"
      Else
        mainMessage = "hyldeInfo=false"
      End If
    End If
  myRS.Close
Set myRS=Nothing
myConnection.Close
Set myConnection=Nothing
  Response.Write(mainMessage)
  %>

på forhånd mange tak.