Indsæt værdi i tekstboks (i tabel), fra recordset
Jeg vil oprette en funktion til at administrerer data i en Access database.Jeg henter data i databasen, men når jeg vil indsætte dataerne fra database i tekstbokse (i en tabel), fremkommer alle ord efter mellemrum ikke
Kodeuddrag:
'***********
'* Ved klik på request.form("S1") Foldes tabel til ret/slet af vare ud
'***********
select case request.form("S1")
case "Id " & YProd
%>
<form method="POST" action=Admin.asp?Hent=4>
<table border="0" width="100%" style="font-family: Tahoma; font-size: 10 pt; color: #FFFFFF" cellspacing="1">
<tr>
<td width="16%" bgcolor="#2F5E8C"><font color="#FFFFFF">Gruppe</font></td>
<td width="11%" bgcolor="#2F5E8C"><font color="#FFFFFF">Navn</font></td>
<td width="17%" bgcolor="#2F5E8C"><font color="#FFFFFF">Vare beskrivelse</font></td>
<td width="10%" bgcolor="#2F5E8C"><font color="#FFFFFF">Pris</font></td>
<td width="21%" bgcolor="#2F5E8C"><font color="#FFFFFF">Hyberlink henvisning</font></td>
<td width="12%" bgcolor="#2F5E8C"><font color="#FFFFFF">Taget</font></td>
<td width="9%" bgcolor="#2F5E8C"><font color="#FFFFFF"> </font></td>
</tr>
<tr>
<td width="18%" bgcolor="#E2E2E2"><p align="right"><select Size="1" name="D1">
<%
'***********
'* Henter værdier til combobox med varegrupperId og Navn
'***********
set RSCombo = Server.CreateObject("ADODB.Recordset")
SQLCombo = "SELECT Gruppe, GruppeID FROM tblGruppeOps ORDER BY Gruppe "
set RSCombo = CnnProd.Execute(SQLCombo)
Do Until RSCombo.Eof = True
Response.write "<option value=" & RSCombo(1) &">" & RSCombo(0) & "</option>"
RSCombo.movenext
Loop
Response.write "<Option selected>" & RSRet.fields("Gruppe") & "</option>"
RSCombo.Close
Set RSCombo = Nothing
'***********
%>
</select></p></td>
<td width="13%" bgcolor="#E2E2E2"><p align="center"><input type="text" name="txtNavn" value=<%Response.Write RSRet.fields("Navn")%>></p></td>
<td width="20%" bgcolor="#E2E2E2"><p align="center"><input type="text" name="txtVare" value=<%Response.Write RSRet.fields("Beskrivelse")%>></p></td>
<td width="12%" bgcolor="#E2E2E2"><p align="center"><input type="text" name="txtPris" style="text-align: right" value=<%Response.Write FormatCurrency(RSRet.fields("Pris"))%>></p></td>
<td width="21%" bgcolor="#E2E2E2"><p align="center"><input type="text" name="txtHyberlink" value=<%Response.Write RSRet.fields("Info")%>></p></td>
<td width="9%" bgcolor="#E2E2E2"><p align="center"><input type="text" name="txtTaget" value=<%Response.Write RSRet.fields("Taget")%>></p></td>
<td width="7%" bgcolor="#E2E2E2"<font color="#000080"></font><p align="center"><input type="submit" value="Ret" name="S2"><input type="submit" value="Slet" name="S2"></p></td>
</tr>
<tr>
<td width="18" bgcolor="#2F5E8C"> </td>
<td width="13%" bgcolor="#2F5E8C"> </td>
<td width="20%" bgcolor="#2F5E8C"> </td>
<td width="12%" bgcolor="#2F5E8C"> </td>
<td width="21%" bgcolor="#2F5E8C"> </td>
<td width="9%" bgcolor="#2F5E8C"> </td>
<td width="7%" bgcolor="#2F5E8C"> </td>
</tr>
</table>
<%
end select
Kode slut
Hilsen JBjerre
