un saluto a tutto il forum!!
Premetto che non sono per niente ferrato con ASP. detto questo, ho un piccolo problema (almeno penso).
Non riesco a collegare un database ad una pagina ASP. Posto il codice..
----------------------------INIZIO CODICE (PRIMA PARTE)---------------------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>GLS</title>
<style type="text/css">
<!--
.Stile1 {
color: #33FF00;
font-weight: bold;
}
-->
</style>
</head>
<body>
<form method="POST" action="inserisci2.asp">
<table border="#CC3300" cellpadding="#99FF00" width="80%" cellspacing="1">
<tr>
<td> <p class="Stile1">Executive GLS Buon giorno. Sono ___________!</p>
Operatore: <input type="text" name="Operatore" size="20" /></p>
Nominativo: <input type="text" name="Nominativo" size="20" /></p>
Motivo chiamata: <input type="text" name="Motivo_Chiamata" size="20" /></p>
<p class="Stile1">Grazie di aver chiamato.</p>
<p class="Stile1">Le auguro una buona giornata/Serata! </p>
<p class="Stile1"></p>
<p class="Stile1"></p>
</p>
</p>
</td>
</tr>
</table>
<input type="submit" value="Invia" /></p>
</form>
</body>
</html>
---------------------------------FINE CODICE (PRIMA PARTE)-----------------------------
DETTO QUESTO ECCOVI LA SECONDA PARTE
--------------------------------INIZIO CODICE (SECONDA PARTE)--------------------------
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>pagina inserimento</title>
</head>
<body>
<%
on error resume next
Operatore = Request.form("Operatore")
Nominativo = Request.form("Nominativo")
Motivo_Chiamata = Request.form("Motivo_Chiamata")
dim Enter_DB
dim Server_DB
dim Database_DB
dim UID_DB
dim PWD_DB
dim Enter_RS
dim SQL
LANGUAGE = VBScript
Server_DB="servercontatta1"
Database_DB="Servizio_Inbound"
UID_DB="piero"
PWD_DB="Hornet74"
set Enter_DB = Server.CreateObject("ADODB.Connection")
set Enter_RS = Server.CreateObject("ADODB.Recordset")
EnterDB.connectiontimeout=7
EnterDB.Open ("Provider=SQLOLEDB;Server=" & Server_DB &_";
Initial Catalog="& Database_DB & ";User Id=" & UID_DB &_";
Password="& PWD_DB& ";Network Library=GLS")
%>
<%
Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;
SQL = "INSERT INTO GLS (Operatore, Nominativo, Motivo_Chiamata) "
SQL = SQL & "VALUES ('" & replace(Operatore,"'","''") & "',"
SQL = SQL & "'" & replace(Nominativo,"'","''") & "'"
SQL = SQL & "'" & replace(Motivo_Ciamata,"'","''") & "'"
SQL = SQL & ")"
conn.execute(SQL)
Enter_DB.Open SQL, Enter_RS
If err.number>0 then
response.write "
Errore nell'inserimento</p>"
elseif conn.errors.count> 0 then
response.write "
Attenzione!</p>"
response.write "
I dati inseriti non sono corretti.</p>"
Else
response.write "
I dati sono stati inseriti correttamente!</p>"
End if
objconn.Close
%>
<hr />
<%
Response.Write("Torna alla pagina precedente")
%>
</p>
</body>
</html>
-----------------------------------FINE CODICE (SECONDA PARTE)------------------------
SPERO DI NON AVER CREATO PROBLEMI INSERENDO TUTTO STO CODICE..
ASPERO IN UN VOSTRO AIUTO!!
GRAZIE
Rispondi quotando
