Click here to Skip to main content
15,388,688 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralVisual Basic Scripts Pin
Luis M. Rojas28-Jul-21 13:12
MemberLuis M. Rojas28-Jul-21 13:12 
AnswerRe: Visual Basic Scripts Pin
Richard Deeming28-Jul-21 21:27
mveRichard Deeming28-Jul-21 21:27 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 2:26
MemberLuis M. Rojas29-Jul-21 2:26 
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 2:50
mveRichard Deeming29-Jul-21 2:50 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas29-Jul-21 3:20
MemberLuis M. Rojas29-Jul-21 3:20 
GeneralRe: Visual Basic Scripts Pin
Richard Deeming29-Jul-21 3:26
mveRichard Deeming29-Jul-21 3:26 
GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 5:27
MemberLuis M. Rojas2-Aug-21 5:27 
GeneralRe: Visual Basic Scripts Pin
jsc422-Aug-21 7:04
professionaljsc422-Aug-21 7:04 
It is not simple to parse something like http://..../wstest/get.asp?cmd=cedula=784512422 but it is easy to parse something like http://..../wstest/get.asp?cmd=cedula&value=784512422. Just use Request.QueryString() to get the value. Start your select case as before e.g.
VBScript
sAction = Request.QueryString("cmd")
Select Case UCase(sAction)
Case "SUCURSALES"
Call getAgenciasJSON()
Case "CEDULA"
Call getCedulaJSON()
Case "RNC"
Call getRNCJSON()
Case Else
sErrorKey = "invalid_key_value"
sErrorMessage = getDictItem("Common.InvalidKeyValue")
Call SetUpJSONfail()
End Select
and then check for the value in the subroutine. Viz:
VBScript
Sub getCedulaJSON()'
Dim sSqlWrk, rswrk, sCedulaValue
sCedulaValue = Request.QueryString("value")
sSqlWrk = "SELECT nombres, apellido1, apellido2 from cedulados where trim(mun_ced) + trim(seq_ced) + trim(ver_ced) = '" + sCedulaValue + "'"
Set rswrk = conn2.Execute(sSqlWrk)
oJSON.LoadRecordset rswrk
Set rswrk = Nothing
oJSON.Write()
End Sub




----------------------------------------------------------------------------------
Not an answer to your latest question but ...
I noticed that on 29 July you had code starting with
VBScript
Select Case UCase(sAction)
Case "SUCURSALES"
Call getSucursalesJSON()
Case "AGENCIAS"
and now you have
VBScript
Select Case UCase(sAction)
Case "SUCURSALES"
Call getAgenciasJSON()
I suspect that you have just mis-copy/pasted and actually want
VBScript
Select Case UCase(sAction)
Case "SUCURSALES"
Call getSucursalesJSON()
Case "AGENCIAS"
Call getAgenciasJSON()

GeneralRe: Visual Basic Scripts Pin
Luis M. Rojas2-Aug-21 8:14
MemberLuis M. Rojas2-Aug-21 8:14 
QuestionMissing Controls After Office 2019 Installation Pin
Ken Kazinski11-Jul-21 2:16
professionalKen Kazinski11-Jul-21 2:16 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Eddy Vluggen11-Jul-21 6:56
professionalEddy Vluggen11-Jul-21 6:56 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz11-Jul-21 7:09
mveGerry Schmitz11-Jul-21 7:09 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski12-Jul-21 16:40
professionalKen Kazinski12-Jul-21 16:40 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Gerry Schmitz13-Jul-21 7:23
mveGerry Schmitz13-Jul-21 7:23 
AnswerRe: Missing Controls After Office 2019 Installation Pin
CHill6015-Jul-21 2:29
mveCHill6015-Jul-21 2:29 
AnswerRe: Missing Controls After Office 2019 Installation Pin
jsc4215-Jul-21 3:07
professionaljsc4215-Jul-21 3:07 
GeneralRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 3:07
professionalKen Kazinski18-Jul-21 3:07 
AnswerRe: Missing Controls After Office 2019 Installation Pin
Ken Kazinski18-Jul-21 3:09
professionalKen Kazinski18-Jul-21 3:09 
QuestionProject building Pin
Anthony Yawson10-Jul-21 23:59
MemberAnthony Yawson10-Jul-21 23:59 
GeneralRe: Project building Pin
Richard MacCutchan11-Jul-21 2:47
mveRichard MacCutchan11-Jul-21 2:47 
AnswerRe: Project building Pin
Dave Kreskowiak11-Jul-21 5:47
mveDave Kreskowiak11-Jul-21 5:47 
QuestionCaret problem Pin
Uchiha Yueh8-Jul-21 16:53
MemberUchiha Yueh8-Jul-21 16:53 
AnswerRe: Caret problem Pin
Dave Kreskowiak8-Jul-21 17:08
mveDave Kreskowiak8-Jul-21 17:08 
GeneralRe: Caret problem Pin
Uchiha Yueh8-Jul-21 22:03
MemberUchiha Yueh8-Jul-21 22:03 
GeneralRe: Caret problem Pin
Dave Kreskowiak9-Jul-21 3:54
mveDave Kreskowiak9-Jul-21 3:54 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.