I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
djwebmaster
djwebmaster
il 13 dicembre 2001 alle 18:16
279 messaggi dal 08 maggio 2001
Ragazzi,
Ho dei problemi con un form da far interagire con un DB ...... tipo la pagina FORUM.ASP di SmitzForum.
sono due settimane che sto provando e riprovanda ma nuila .... mi compare errore alla riga 65 ossia:

(...)

SQL = "SELECT * FROM community"
confronto = rs("data")
Diff = DateDiff("d",confronto,Now)
Select case community
Case "1"
SQL= SQL & "' WHERE (confronto) = " & Diff & " '"
Case "2"
SQL= SQL & "' WHERE (confronto) <= " & Diff & " '"

(...)

Se qualcuno è abbastanze esperto e disponibile a rivedermimil codice perché non ho proprio idea di come risolvere il problema.

********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************
RispondiQuoting
Chicco
Chicco
il 13 dicembre 2001 alle 18:31
117 messaggi dal 03 settembre 2001
Non riesco a capire l'apice che hai messo appena prima di WHERE.

Ciao Enrico
RispondiQuoting
ojd
ojd
il 13 dicembre 2001 alle 18:37
635 messaggi dal 06 settembre 2002
ciao, prova in questo modo:


SQL = "SELECT * FROM community"
confronto = rs("data")
Diff = DateDiff("d",confronto,Now)
Diff=CInt(Diff)
if Diff=1
SQL= SQL&" WHERE confronto = "&Diff
elseif Diff=2
SQL= SQL&" WHERE confronto <= "&Diff
end if




JD
OJD
RispondiQuoting
pdb
pdb
il 13 dicembre 2001 alle 20:36
839 messaggi dal 13 febbraio 2001
Ciao DJ,
scusa ma (confronto) è un campo numerico o un campo data?
Nel primo caso la query di OJD va bene, altrimenti è la logica dello script è sbagliata per cui invece di usare DateDiff va usato DateAdd e poi la data deve diventare in formato SQL tra # come gia indicato "altrove". ;-)


Ciao!
Paolo
RispondiQuoting
djwebmaster
djwebmaster
il 14 dicembre 2001 alle 00:31
279 messaggi dal 08 maggio 2001
Ragazzi, adesso lo script va OK però non capisco perché la select non va ..... adesso ho proprio bisogno di un HELP .....
Infatti quando seleziono una voce dalla select mi compare questo errore:

Microsoft OLE DB Provider for ODBC Drivers errore "80040e07"
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/visualizza1.asp, riga 58

Che corrisponde a: rs.Open SQL, Conn, 3, 3
che in realtà è corretto dato che la visualizzazione dei dati avviene correttamente ed il problema nasce solo nella selezione di un valore dalla select.

Il campo data è di tipo data ..........
Aiutatemi ...... ho uregnza di risolvere il problema; per semplificarvi la vita vi posso inviare anche il codice con il DB via e-mail.

<%
page = Request("page")
if page="" then page=1

scelta=Request.Form("Days")
if scelta = "" then
scelta = 0
end if
%>
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>
</title>
</head>
<body>

<%
Function SQLDateTime(ByVal strToFmt)
If IsDate(strToFmt) Then
SQLDateTime="#" & _
DatePart("m", strToFmt)& "/" &_
DatePart("d", strToFmt) & "/" &_
DatePart("yyyy", strToFmt) & " " &_
DatePart("h", strToFmt) & ":" &_
DatePart("n", strToFmt) & ":" &_
DatePart("s", strToFmt) & "#"

Else
SQLDateTime=""
End If
End Function


dim conn, strConn

strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../mdb-database/utenti.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open StrConn

'PAGINAZIONE

Dim SQL, RecordsPerPagina,TotalRecords

SQL = "SELECT * FROM community"

Select case scelta
Case "1"
SQL=SQL & " WHERE data = '" & SQLDateTime(DateAdd("d", scelta, Now() )) & "'"
Case "2"
SQL=SQL & " WHERE data <= '" & SQLDateTime(DateAdd("d", scelta, Now() ) ) & "'"
End Select
SQL= SQL & " ORDER BY data DESC"

rs.Open SQL, Conn, 3, 3

Response.Write (SQL)
FUNCTION SELECTED( val1, val2 )
IF cSTR( val1 ) = cSTR( val2 ) THEN
SELECTED = " selected "
END IF
END FUNCTION
%>

<form action="visualizza1.asp" method="post" name="DaysFilter">
<select name="Days">
<option value="0" <%=SELECTED( "0", Days )%>> Tutti gli iscritti
<option value="1" <%=SELECTED( "1", Days )%>> Iscritti oggi
<option value="2" <%=SELECTED( "2", Days )%>> Iscritti da due giorni
<option value="5" <%=SELECTED( "5", Days )%>> Iscritti da 5 giorni
<option value="7" <%=SELECTED( "7", Days )%>> Iscritti da 1 settimana
<option value="30" <%=SELECTED( "30", Days )%>>Iscritti da un mese
<option value="60" <%=SELECTED( "60", Days )%>> Iscritti da due mesi
<option value="120" <%=SELECTED( "120", Days )%>> Iscritti da 4 mesi
<option value="365" <%=SELECTED( "365", Days )%>> Iscritti da un anno
</select>
<input type="submit" value="show">
</form>
<p></p>
<p></p>
<%'record attivi
TotalRecords = rs.RecordCount

If TotalRecords=0 then

Response.Write "<P>Nessun risultato trovato</P>"

Else

' paginazione
RecordsPerPagina = 10
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page

For i=1 to RecordsPerPagina

WHILE NOT rs.Eof and rowCount < rs.PageSize
rowCount = rowCount + 1
%>
<%=Add%>
<form action="modify.asp" method="POST">
<input type="hidden" name="ID" value="<%=rs("ID")%>">
<div align="left">
<table border="0" cellspacing="1" width="500">
<tr>
<td>
<p align="center"><b>Data iscrizione</b> </td>
<td>
<p align="center"><b>Nome</b></td>
<td>
<p align="center"><b>Presentatore</b> </td>
<td> </td>
</tr>
<tr>
<td><input
type="text" size="15" name="data" value="<%=rs("data")%>"> </td>
<td><input
type="text" size="15" name="nome" value="<%=rs("nome")%>"></td>
<td><input
type="text" size="5" name="IDN" value="<%=rs("IDN")%>"> </td>
<td> <input
type="submit" name="modifica" value="Invia"></td>
</tr>
</table>
</div>
</form>
<%
rs.MoveNext
wend

next
end if
%>
<hr width="400" color="#0000FF">

<p><font color="#FF0000"><%

If TotalRecords > 0 then

Response.Write "<P><B>Pagine:</B> "

For p=1 to rs.PageCount

If p <> CInt(Page) then

Response.Write "<A href='visualizza1.asp?page=" & p
Response.Write "&" & Server.UrlEncode(scelta)
Response.write "'><font color=""#FF0000"">"

Else
' pagina attuale
Response.Write "<B>"
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</A> "
Else
Response.Write "</B> "
End if

Next

Response.Write "</P>"

End if

%> </font> </p>

<p>
<%
' liberiamo le risorse
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%> </p>


RispondiQuoting
djpierre
djpierre
il 14 dicembre 2001 alle 00:49
206 messaggi dal 07 agosto 2001
strDateIscr non lo passi..che problemi ti dà? come salvi la data nel DB?

RispondiQuoting
djwebmaster
djwebmaster
il 17 dicembre 2001 alle 01:41
279 messaggi dal 08 maggio 2001
Rileggi il codice ........ in quanto l'ho modificato e se ti riesce fammi sapere dov'è il problema.

********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************
RispondiQuoting
pdb
pdb
il 17 dicembre 2001 alle 04:11
839 messaggi dal 13 febbraio 2001
Il criterio data non va messo tra apici.

Ciao!
Paolo
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.