salve ragazzi sono alle prime armi ho fatto un giro sul forum ma non sono riuscto a capire dove inserire sul mio codice il Replace per eliminare il problema dell'inserimento dell'apice.
Posto il codice se qualcuno potesse aiutarmi:
<html>
<head>
<title>ORS Salvataggio...</title>
</head>
<body link="#000080" vlink="#000080" alink="#000080" style="text-align: center" bgcolor="#FFFFFF">
<%
Dim strCampi, strValori
strCampi = "("
strValori = " VALUES ("
For k = 1 To Request.Form.Count
if (Request.Form.Item(k) <> "") then
Select Case Request.Form.Key(k)
case "data_visita"
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & "#" & Request.Form.Item(k) & "#, "
case "visita_precedente"
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & "#" & Request.Form.Item(k) & "#, "
case "data_nascita"
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & "#" & Request.Form.Item(k) & "#, "
case "eta"
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & Request.Form.Item(k) & ", "
case "data_mestruazioni"
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & "#" & Request.Form.Item(k) & "#, "
case else
strCampi = strCampi & Request.Form.Key(k) & ", "
strValori = strValori & "'" & Request.Form.Item(k) & "', "
end select
end if
next
strCampi = Left(strCampi, Len(strCampi) -2) & ")"
strValori = Left(strValori, Len(strValori) -2) & ")"
Dim strConn, Conn
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source= "
strConn = strConn & Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.connection")
Conn.Open strConn
SQL = "INSERT INTO orsms " & strCampi & strValori
Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing
if (err.Number > 0) then
Response.Write "Attenzione! " & err.Description
else
%>
<h1></h1>
</p>
</p>
<table border="1" width="100%" id="table1" bgcolor="#CCCCCC" height="98">
<tr>
<td>
<h1 align="center">***I DATI SONO STATI SALVATI CORRETTAMENTE***</h1>
<p align="center"></p>
<p align="center"><a href="index.asp"><span style="font-weight: 700">
RICOMINCIA</span></a></td>
</tr>
</table>
<%end if%>
</body>
</html>
Rispondi quotando
