Ariciao mems.
Mi si è presentato un altro problema: adesso riesco a visualizzare i dati presenti in una tabella ma non riesco a salvarli in un'altra tabella dello stesso database. I campi in cui i dati dovrebbero registrarsi, infatti, appaiono bianchi (quando sono del tutto vuoti, mi appare la dicitura NULL - trattasi di database SQL Server 2005 - ).
Lo scopo del form è quello di verificare la correttezza dei dati ed eventualmente aggiornarli.
Nel codice qui copiato ho inserito, come prova, solo il campo Ragione_sociale, che non riesco però a regsitrare.
codice:
<%@ Language = "VBScript"%>
<html>
<style type="text/css"> <!--
.TD_FLUSSO {
background : Fuchsia;
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #CD5C5C;
}
.TD_FLUSSO_DX {
background : Fuchsia;
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #CD5C5C;
font : bolder 30px;
}
.TD_GRUPPO {
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #F4A460;
}
.TD_AGENTE {
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #F4A460;
}
.TD_NUMTEL {
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #DADDFF;
}
.TD_PIN {
border-bottom: 1px solid #F8F8FF;
border-right: 1px solid #F8F8FF;
border-left: 1px solid #F8F8FF;
border-top: 1px solid #F8F8FF;
background: #DADDFF;
}
.BTN_PG {
background-color: #DEB887;
border: 1px solid;
height: 22;
font: normal x-small;
}
.TD_ANAGRAFICA {
border-bottom: 1px solid #FFFFFF;
border-right: 1px solid #FFFFFF;
border-left: 1px solid #FFFFFF;
border-top: 1px solid #FFFFFF;
background: #FF6600;
}
-->
</style>
<head>
<title>Dati chiamata</title>
</head>
<body >
<div align="center">
<h1> Chiamata in arrivo </h1>
<%
Dim pinIN, agenteIN, Data, numTelCliente, ifFrame, Ora, Ragione_sociale, Indirizzo, Cod_contratto, Sede, comune, CAP, PROV, Altro_recapito_tel, Mail
numTelCliente = request("numTel")
pinIN = request("pin")
flussoIN = request("flusso")
agenteIN = request("agente")
gruppoIN = request("gruppo")
ifFrame = request("ifFrame")
Data = request("DataOra")
Ora = request("DataOra")
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=XXXXX;UID=XXXXX;PWD=XXXXX;DATABASE=Servizio_Inbound"
Conn.open DSNtest
if ifFrame = "" then
ifFrame = 0
end if
%>
<table width="60%" border="0" cellspacing="2" cellpadding="4" align="center" frame="box" rules="groups">
<tr>
<td style="background-color: Black; height: 1px"></td>
<td style="background-color: Black; height: 1px"></td>
</tr>
<%
if flussoIN <> "" then %>
<tr>
<td class="TD_FLUSSO">FLUSSO:</td>
<td class="TD_FLUSSO"><%= flussoIN %></td>
</tr>
<%end if
if agenteIN <> "" then %>
<tr>
<td class="AGENTE">AGENTE:</td>
<td class="AGENTE"><%= agenteIN %></td>
</tr>
<% end if
if Data <> "" then %>
<tr>
<td class="TD_DATA">Data:</td>
<td class="TD_DATA"><%= Date() %></td>
</tr>
<% end if
if Ora <> "" then %>
<tr>
<td class="TD_DATA">Ora:</td>
<td class="TD_DATA"><%= Time() %></td>
</tr>
<%end if
if pinIN <> "" then %>
<tr>
<td class="TD_PIN">PIN:</td>
<td class="TD_PIN"><%= pinIN %></td>
</tr>
<%end if
if numTelCliente <> "" then %>
<tr>
<td class="TD_NUMTEL">Numero di telefono del cliente:</td>
<td class="TD_NUMTEL"><%= numTelCliente %></td>
</tr>
</table>
<%else%>
<tr>
<td colspan="2" align="center" style="border-bottom: 1px solid #F8F8FF; border-right: 1px solid #F8F8FF; border-left: 1px solid #F8F8FF; border-top: 1px solid #F8F8FF; background: #DADDFF;">Numero di telefono non inviato</td>
</tr>
<%end if%>
<%
set rs = server.createobject("adodb.recordset")
sql = "SELECT * FROM dbo.Anagrafica_GLS;"
rs.open sql, conn
Do while not rs.eof
if numTelCliente = rs("Telefono") then
%>
<form method="post" action="dati_inviati.asp">
<table width="60%" border="0" cellspacing="2" cellpadding="4" align="center" frame="box" rules="groups">
<tr>
<td class="TD_ANAGRAFICA">RAGIONE SOCIALE</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Ragione_sociale")%>" name="ragsoc"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">INDIRIZZO</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Indirizzo")%>" name="indir"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">CODICE CONTRATTO</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Cod_contratto")%>" name="codice"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">SEDE</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Sede")%>" name="sed"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">COMUNE</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("comune")%>" name="comun"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">CAP</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("CAP")%>" name="cap"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">PROV</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("PROV")%>" name="prov"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">RECAPITO TEL. ALTERN.</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Altro_recapito_tel")%>" name="altel"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">EMAIL</td>
<td class="TD_ANAGRAFICA"><input type="text" value="<% = rs("Mail")%>" name="emela"></td>
</tr>
<tr>
<td class="TD_ANAGRAFICA">MOTIVO DELLA CHIAMATA</td>
<td>
<select size=1 cols=4 NAME="motivo">
<OPTION selected Value=nessuna>Seleziona motivo
<OPTION value=ritiro> PRENOTAZIONE RITIRO
<OPTION value=interrogazione> CONTROLLO SPEDIZIONI ARRIVO
<OPTION Value=preventivo occasionale> PREVENTIVO CLIENTE OCCASIONALE
<OPTION Value=interrogazione2> CONTROLLO SPEDIZIONI PARTENZA
<OPTION Value=preventivo cliente> PREVENTIVO CLIENTE GLS
<OPTION Value=tempi resa> TEMPI DI RESA
<OPTION Value=border> INVIO BORDERO'/ESTRATTI CONTO
<OPTION Value=contrassegni> CONTRASSEGNI
<OPTION Value=estero> SPEDIZIONI ESTERE
<OPTION Value=altro> ALTRO
<OPTION Value=ritiro intrasede> RITIRI INTRASEDE
<OPTION Value=variazione spedizione> VARIAZIONE SPEDIZIONE
<OPTION Value=variazione ritiro> VARIAZIONE RITIRO
<OPTION Value=sedi gls> INDIRIZZI SEDI EXECUTIVE
<OPTION Value=telefono> TELEFONO
</select>
</td>
</tr>
<%
ragsoc = request.form("ragsoc")
indir = request.form("indir")
codice = request.form("codice")
sed = request.form("sed")
comun = request.form("comun")
cap = request.form("cap")
prov = request.form("prov")
altel = request.form("altel")
emela = request.form("emela")
exit do
end if
rs.movenext
Loop
if rs.eof then
response.write ("Anagrafica non trovata")
end if
rs.close()
%>
</table>
<%
sql = "INSERT INTO dbo.GLS (Ragione_sociale, numTelCliente, flusso, pin, Operatore, Data, Ora) VALUES ('" & ragsoc &"', '" & numTelCliente & "', '" & flussoIN & "', '" & pinIN & "', '" & agenteIN & "', '" & Date & "', '" & Time & "');"
set rs = conn.execute(sql)
conn.Close
set Conn = Nothing
%>
<input type="submit" value="Invia" name="B1">
</form>
</div>
</body>
</html>
Rispondi quotando
