Ciauuuuuu
Mi ritrovo con una 15 di tabelle in access e vorrei trasferire il tutto su sql server,ho gia scritto la stringe di connessione per sql,ma ora mi sorge un dubbio.
Le tabelle vanno modificate???
Gli script devono essere appositi per sql oppure una connessione del genere va bene??
Posto il tutto
Dim id
id = Request.QueryString("id")
id = CInt(id)
' Verifico che la querystring abbia un valore numerico positivo
If IsNumeric(id) = False Or id < 1 Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Creo la stringa SQL per estrarre la domanda
Dim SQL
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_id = " & id
' Eseguo la stringa SQL e verifico che esista una domanda per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Stampo a video il risultato
%>
<h2><%=rs("msg_titolo")%></h2>
<div style="background-color: #EEEEEE;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
End If
rs.Close
' Creo la stringa SQL per estrarre le eventuali risposte
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, msg_data, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_risposte = " & id
' Eseguo la stringa SQL e verifico che esistano delle risposte per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF = False Then
' Imposto i colori alternati per le varie risposte
Dim c, colore
c = 0
While rs.EOF = False
colore = "#E0E0E0"
If c Mod 2 > 0 Then colore = "#EEEEEE"
%>
<div style="background-color: <%=colore%>;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
rs.MoveNext
c = c + 1
Wend
End If
rs.Close
End If
%>
<br>
<%If Session("username") <> "" Then%>
<p align="center">
<form method="post" action="messaggio.asp?id=<%=id%>&rispondi=OK">
<textarea name="messaggio" style="width: 250px; height: 100px;"></textarea><br><br>
<input type="submit" value="Rispondi">
</form>
<br>
<%
' Verifico che il modulo sia stato inviato
If Request.QueryString("rispondi") = "OK" Then
Dim messaggio
messaggio = Replace(Replace(Request.Form("messaggio"), "<", "<"), vbCrLf, "<br>")
' Verifico che sia stato specificato un messaggio
If Len(Trim(messaggio)) > 1 Then
' Recupero l'id dell'autore in funzione della sua username, memorizzata nella sessione
Dim autore
Set autore = cn.Execute("SELECT ute_id FROM utenti WHERE ute_username = '" & Session("username") & "'")
' Effettuo l'inserimento
rs.Open "messaggi", cn, 3, 3
rs.AddNew
rs("msg_autore") = autore("ute_id")
rs("msg_messaggio") = messaggio
rs("msg_risposte") = id
rs.Update
rs.Close
Set autore = Nothing
' Aggiorno la data della discussione a cui si è risposto
Dim data
Set data = cn.Execute("UPDATE messaggi SET msg_data = '" & Now() & "' WHERE msg_id = " & id)
Set data = Nothing
End If
' In qualsiasi caso rimando l'utente alla discussione in corso
Response.Redirect "messaggio.asp?id=" & id
End If
%>
</p>
<br>
<%End If%>
Grazie
Ciauuuuuu
Mi ritrovo con una 15 di tabelle in access e vorrei trasferire il tutto su sql server,ho gia scritto la stringe di connessione per sql,ma ora mi sorge un dubbio.
Le tabelle vanno modificate???
Gli script devono essere appositi per sql oppure una connessione del genere va bene??
Posto il tutto
Dim id
id = Request.QueryString("id")
id = CInt(id)
' Verifico che la querystring abbia un valore numerico positivo
If IsNumeric(id) = False Or id < 1 Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Creo la stringa SQL per estrarre la domanda
Dim SQL
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_id = " & id
' Eseguo la stringa SQL e verifico che esista una domanda per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF Then
Response.Write "<p>Nessuna discussione</p>"
Else
' Stampo a video il risultato
%>
<h2><%=rs("msg_titolo")%></h2>
<div style="background-color: #EEEEEE;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
End If
rs.Close
' Creo la stringa SQL per estrarre le eventuali risposte
SQL = ""
SQL = SQL & "SELECT msg_titolo, msg_messaggio, msg_data, ute_username "
SQL = SQL & "FROM messaggi, utenti WHERE "
SQL = SQL & "msg_autore = ute_id AND msg_risposte = " & id
' Eseguo la stringa SQL e verifico che esistano delle risposte per l'id specificato
rs.Open SQL, cn, 1
If rs.EOF = False Then
' Imposto i colori alternati per le varie risposte
Dim c, colore
c = 0
While rs.EOF = False
colore = "#E0E0E0"
If c Mod 2 > 0 Then colore = "#EEEEEE"
%>
<div style="background-color: <%=colore%>;">
<b>Autore:</b> <%=rs("ute_username")%><br><br>
<%=rs("msg_messaggio")%><br><br>
</div>
<%
rs.MoveNext
c = c + 1
Wend
End If
rs.Close
End If
%>
<br>
<%If Session("username") <> "" Then%>
<p align="center">
<form method="post" action="messaggio.asp?id=<%=id%>&rispondi=OK">
<textarea name="messaggio" style="width: 250px; height: 100px;"></textarea><br><br>
<input type="submit" value="Rispondi">
</form>
<br>
<%
' Verifico che il modulo sia stato inviato
If Request.QueryString("rispondi") = "OK" Then
Dim messaggio
messaggio = Replace(Replace(Request.Form("messaggio"), "<", "<"), vbCrLf, "<br>")
' Verifico che sia stato specificato un messaggio
If Len(Trim(messaggio)) > 1 Then
' Recupero l'id dell'autore in funzione della sua username, memorizzata nella sessione
Dim autore
Set autore = cn.Execute("SELECT ute_id FROM utenti WHERE ute_username = '" & Session("username") & "'")
' Effettuo l'inserimento
rs.Open "messaggi", cn, 3, 3
rs.AddNew
rs("msg_autore") = autore("ute_id")
rs("msg_messaggio") = messaggio
rs("msg_risposte") = id
rs.Update
rs.Close
Set autore = Nothing
' Aggiorno la data della discussione a cui si è risposto
Dim data
Set data = cn.Execute("UPDATE messaggi SET msg_data = '" & Now() & "' WHERE msg_id = " & id)
Set data = Nothing
End If
' In qualsiasi caso rimando l'utente alla discussione in corso
Response.Redirect "messaggio.asp?id=" & id
End If
%>
</p>
<br>
<%End If%>
Grazie
Ciauuuuuu
