Set rs=Server.CreateObject("ADODB.Recordset") 'SQL sætninge som hendter data Type skal i [] forid det er reservert 'ord i SQL. sql = "SELECT [type], dato, forhandlernavn FROM din_tabel" Set rs = Conn.Execute(sql) 'Udskriv data do while not rs.eof Response.write "Type : " & rs("type") Response.write " Dato : " & rs("dato") Response.write " forhandlernavn: " & rs("forhandlernavn")
Jeg prøvede dette, men det er kun "nummer" der udskrives, hvorfor ?
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb" Conn.Open DSN
sql="update usgdatabase set kunderep='"&request.form("kunderep")&"', status='"&request.form("status")&"'where nummer='"&request.form("nummer")&"'" set record=conn.execute(sql)
%> <html> <title>USGADMINUPDATE</title> <head> </head> <body> <BODY BGCOLOR="#ffffff" <form method="post" action="usgkundeupdate.asp"> </FORM></P> <h1><font face="Arial, Helvetica, sans-serif" size="1">Databasen er nu opdateret</h1>
<%
if (Request.form("status")) = "usgok" then response.write ("<strong>Der er nu afsendt en godkendelses mail til Comgros EDB Service") set jmail = server.createobject("JMAIL.SMTPMail") jMail.sendername = "Skade godkendt" jMail.sender = "postmaster@serviceinfo.dk" jMail.Subject = "Skade godkendt" jMail.ServerAddress = "mail.comgrosinfo.dk" jMail.AddRecipient "postmaster@comgrosinfo.dk" jMail.Body = "Dette er et autosvar" & vbCrLf jMail.Body = jMail.Body & "Her følger online informationer:" & vbCrLf & vbCrLf jMail.Body = jMail.Body & "Faktura Nr: " & (Request.form("nummer")) & " er godkendt" & vbCrLf jMail.Body = jMail.Body & "Vare type: " & (Request.form("type")) jMail.Body = jMail.Body & "Forhandler: " & (Request.form("forhandlernavn")) jMail.Priority = 3 jMail.execute else end if %>
sql="update usgdatabase set kunderep='"&request.form("kunderep")&"', status='"&request.form("status")&"'where nummer='"&request.form("nummer")&"'" conn.execute(sql)
'Så kan du hendet den record og udskrive...: sql="SELECT * FROM usgdatabase WHERE nummer='"&request.form("nummer")&"'" Set record=conn.execute(sql)
'Udskriv data do while not record.eof Response.write "Type : " & record("type") Response.write " Dato : " & record("dato") Response.write " forhandlernavn: " & record("forhandlernavn")
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb" Conn.Open DSN
sql="update usgdatabase set kunderep='"&request.form("kunderep")&"', status='"&request.form("status")&"'where nummer='"&request.form("nummer")&"'" set record=conn.execute(sql)
sql="SELECT * FROM usgdatabase WHERE nummer='"&request.form("nummer")&"'" Set record=conn.execute(sql) if (Request.form("status")) = "usgok" then response.write ("<strong>Der er nu afsendt en godkendelses mail til Comgros EDB Service") set jmail = server.createobject("JMAIL.SMTPMail") jMail.sendername = "Skade godkendt" jMail.sender = "postmaster@serviceinfo.dk" jMail.Subject = "Skade godkendt" jMail.ServerAddress = "mail.comgrosinfo.dk" jMail.AddRecipient "postmaster@comgrosinfo.dk" jMail.Body = "Dette er et autosvar" & vbCrLf jMail.Body = jMail.Body & "Her følger online informationer:" & vbCrLf & vbCrLf jMail.Body = jMail.Body & "Faktura Nr: " & (Request.form("nummer")) & " er godkendt" & vbCrLf jMail.Body = jMail.Body & "Vare type: " & (Response.write & record("type")) jMail.Body = jMail.Body & "Forhandler: " & (Response.write & record("forhandlernavn")) jMail.Priority = 3 jMail.execute else end if %>
Ja.. du skal også havde en SELECT.. UPDATE hendter ikke data ud af databasen så du efter update SQL'en:
sql="update usgdatabase set kunderep='"&request.form("kunderep")&"', status='"&request.form("status")&"'where nummer='"&request.form("nummer")&"'" set record=conn.execute(sql)
'Skal der indsættes en SELECT: sql="SELECT * FROM usgdatabase WHERE nummer='"&request.form("nummer")&"'" Set record=conn.execute(sql)
I andre tak for jeres svar, men point går til eagleeye da det var hans svar jeg kunne bruge.
Håber dette er ok.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
