come fare da una select selezionare 2 campi nel database?

[mauro99]

salve io ho una select dove io abbino un nome e come risultato mi da il codice del nome siccome io ho una tabella che mi serve il codice del nome ma vorrei scrivere anche il nome che seleziono io non riesco a recuperare il nome mi potreste dare dei suggerimenti per poter recuperare anche il nome?
grazie

qui sotto c'è il codice

<table border="0" cellpadding="2" align="center" width="508">
  <tr>
    <td width="253"><font face="arial, helvetica, sans-serif" size="2">SKU</font><font face="arial, helvetica, sans-serif" size="-2">

                </font><input size="23" name="txtSKU" value="<%=SKU%>" maxLength="50" tabindex="1"><sub></sub></td>
    <td width="253" valign="bottom" align="left"><font face="arial, helvetica, sans-serif" size="2">Categoria
      ID</font><font face="arial, helvetica, sans-serif" size="-2"><font color="#ff0000">*</font>

                </font>
<%
dim oDropDown
Set oDropDown = new Tools_DropDown
oDropDown.ShowDropDown "ProdCategories","txtCatID", CatID, 2, "SELECT CategoryID,CategoryName FROM ProdCategories WHERE categoryID NOT IN (SELECT parentID FROM prodCategories)" 
%><sub></sub></td>
  </tr>
  <tr>
    <td width="253"><font face="arial, helvetica, sans-serif" size="2">Nome
      Articolo</font><font face="arial, helvetica, sans-serif" size="-2"><font color="#ff0000">*</font>

                </font><input size="23" name="txtItemName" value="<%=ItemName%>" maxLength="50" tabindex="3"><sub></sub></td>
    <td width="253" valign="bottom" align="left"><font face="arial, helvetica, sans-serif" size="2">Descrizione</font><font face="arial, helvetica, sans-serif" size="-2"><font color="#ff0000">*</font>

                </font><input size="23" name="txtItemDesc" value="<%=ItemDesc%>" maxLength="50" tabindex="4"><sub></sub></td>
  </tr>

[ID-entity]

come si chiama il campo nome?

[mauro99]

il campo nome si chiama CategoryName e il canpo del codice si chiama CatID

[ID-entity]

ma cos'è sto Tools_DropDown?


La tua non sembra una select comune, la esegui tramite questo tool che non conosco.

[mauro99]

questo è il codice del tools

<%
Class Tools_DropDown

Public Sub ShowDropDown(ByVal TableName,ByVal SelectName,ByVal Selected, ByVal TabIndex, SQLText)
	dim Cmd, Rs, blnIsSelectFound
	Set Cmd = Server.CreateObject("adodb.Command")
	Set Rs = Server.CreateObject("adodb.Recordset")
	if SQLText = "" then
		Cmd.CommandType = adCmdTable
		Cmd.CommandText = TableName
	else
		Cmd.CommandType = adCmdText
		Cmd.CommandText = SQLText
	end if
	Cmd.ActiveConnection = GetConnectionString1()
	Rs.CursorLocation = adUseClient
	Rs.Open Cmd, , adOpenStatic, adLockReadOnly
	Set Cmd = Nothing
	Response.Write "<select name="& Chr(34)&SelectName& Chr(34)&" tabIndex="& Chr(34)&TabIndex& Chr(34)&">"
	Dim sOption
	Response.Write "<option>"
	do while not Rs.EOF
		sOption = "<option value="& Chr(34)&Rs.Fields(0)& Chr(34)
		if StrComp(Rs.Fields(0),Selected,1) = 0 then sOption = sOption & " Selected "
		sOption = sOption & " >"&Rs.Fields(1)
		Response.Write sOption
		Rs.MoveNext
	loop
    rs.Close
    Set Rs = Nothing
	Response.Write "</select>"
End Sub

Public Sub YearDropDown(ByVal SelectName,ByVal Selected, ByVal TabIndex)
	Dim i
	Response.Write "<select name="&Chr(34)&SelectName& Chr(34)&" tabIndex="& Chr(34)&TabIndex& Chr(34)&">"
	Dim sOption
	For i = year(now()) to year(now()) + 10 
		sOption = "<option value="& Chr(34)&right(i,2)& Chr(34)
		if StrComp(right(i,2),Selected,1) = 0 then sOption = sOption &" Selected "
		sOption = sOption & " >"&i
		Response.Write sOption
	Next
	Response.Write "</select>"
End Sub

Public Sub MonthDropDown(ByVal SelectName,ByVal Selected, ByVal TabIndex)
'Adendum - adding three letter abreviation for month name for drop down display
	Dim arrMonthName(11)
	arrMonthName(0) = "Jan"
	arrMonthName(1) = "Feb"
	arrMonthName(2) = "Mar"
	arrMonthName(3) = "Apr"
	arrMonthName(4) = "May"
	arrMonthName(5) = "Jun"
	arrMonthName(6) = "Jul"
	arrMonthName(7) = "Aug"
	arrMonthName(8) = "Sep"
	arrMonthName(9) = "Oct"
	arrMonthName(10) = "Nov"
	arrMonthName(11) = "Dec"
	
	Dim i
	Response.Write "<select name="&Chr(34)&SelectName& Chr(34)&" tabIndex="& Chr(34)&TabIndex& Chr(34)&">"
	Dim sOption
	For i = 1 to 12
		sOption = "<option value="& Chr(34)&i& Chr(34)
		if StrComp(i,Selected,1) = 0 then sOption = sOption &" Selected "
		sOption = sOption & " >"&arrMonthName(i-1)
		Response.Write sOption
	Next
	Response.Write "</select>"
End Sub

Public Sub DayDropDown(ByVal SelectName,ByVal Selected, ByVal TabIndex)
	Dim i
	Response.Write "<select name="&Chr(34)&SelectName& Chr(34)&" tabIndex="& Chr(34)&TabIndex& Chr(34)&">"
	Dim sOption
	For i = 1 to 31
		sOption = "<option value="& Chr(34)&i& Chr(34)
		if StrComp(i,Selected,1) = 0 then sOption = sOption &" Selected "
		sOption = sOption & " >"&i
		Response.Write sOption
	Next
	Response.Write "</select>"
End Sub

End Class
%>