title image


Smiley Re: Auswertung von Formulardaten mit popup
Ich habe inzwischen eine andere Möglichkeit gefunden. Das entsprechende Pflichtfeld ist in einer Tabelle und das entsprechende Feld ändert seine Farbe.



Ich poste aber trotzdem noch den Quelltext, weil das mit dem popup oder msgbox interessiert mich auch. Aber guck dir das bloss nicht zu genau an...ich bin halt noch in der testphase*g*

Der entsprechende Button wäre dann dieser:

response.write("")











<% @ Language="VBScript"

LCID = 1031 %><%

Option Explicit

Response.Buffer = true

Session.LCID = 1031







Dim rs, strConn, Conn, strPfadDB, SQL, NameID, BeginnDatum, BeginnZeit, EndeDatum

Dim EndeZeit, Kommentar , Vorname, Nachname, chrpos, y, datumtest

Dim i, Hauptthema,dummy

dim dataDB,dataDBPfad

dim Nameneintrag

if dummy=false and Request.form("save.x") ="" then

call test()

end if

sub test()%>



Meine Homepage - Startseite


























Name











Beginn(Datum)









Beginn(Zeit)









Ende(Datum)









Ende(Zeit)









Kommentar











<%if dummy=false then

response.write("")

else

response.write("")

end if

%>



<%

Hauptthema = Request("Hauptthema")

set rs = Server.CreateObject("ADODB.Recordset")

strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

strPfadDB = strPfadDB & Server.MapPath("testDB.mdb")



rs.Open "Select * from tab_test order by Nachname", strPfadDB, 0, 1



Do while not rs.EOF

if rs.Fields("Nachname").Value "" then

Nameneintrag= rs.Fields("Nachname").Value & ", " & rs.Fields("Vorname").Value

else

Nameneintrag= ""

end if

%>



<%

rs.MoveNext

loop

rs.Close

%>











<%

datumtest=date()

y=0



Do while y<=90

if dummy=false then

%>



<%



else

if request.form("Datum1")= formatdatetime(datumtest,1) then

%>



<%

else

%>



<%

end if









end if

y=y+1

datumtest=datumtest+1

loop

%>







<%

'Zeitvorgaben auslesen und in DropdownMenüs eintragen

set dataDB = Server.CreateObject("ADODB.Recordset")

dataDBPfad = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

dataDBPfad = dataDBPfad & Server.MapPath("dataDB.mdb")

dataDB.Open "Select * from allgDaten", dataDBPfad, 0, 1

%>





<%

Do while not dataDB.EOF

if dummy=false then

%>



<%

else

if request.form("zeit1")= dataDB.Fields("Zeiten").value then

%>



<%

else

%>



<%

end if

end if

dataDB.movenext

loop

%>











<%

datumtest=date()

'datumtest=formatdatetime(datumtest,1)

y=0

Do while y<=90



if dummy=false then

%>



<%



else

if request.form("Datum2")= formatdatetime(datumtest,1) then

%>



<%

else

%>



<%

end if









end if

y=y+1

datumtest=datumtest+1

loop

%>











<%

dataDB.movefirst

Do while not dataDB.EOF

if dummy=false then

%>



<%

else

if request.form("zeit2")= dataDB.Fields("Zeiten").value then

%>



<%

else

%>



<%

end if

end if

dataDB.movenext

loop

dataDB.close

set dataDB = nothing

%>









<%

if dummy = false then

response.write("")

else

response.write("")

end if

%>



















<%

response.write("")

response.write(" ")

response.write("")





end sub



If Request.form("save.x") "" then



Hauptthema = Request("Hauptthema")

if Hauptthema "" then

chrpos= instr(1,Hauptthema, " ")

Nachname=mid(Hauptthema, 1,chrpos-2)

Vorname=mid(Hauptthema,chrpos+1)



set rs = Server.CreateObject("ADODB.Recordset")

strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

strPfadDB = strPfadDB & Server.MapPath("mitarbeiter.mdb")

SQL="SELECT * from tab_Personal WHERE Vorname= '" & Vorname & "' and Nachname='" & Nachname & "'"

rs.open SQL,strPfadDB, 0, 1

NameID = rs.Fields("PersonalIDx").Value

rs.close

set rs = nothing





BeginnDatum = mid(Request("Datum1"),4) 'Beginn Datum Datum, tt.mm.jjjj

'BeginnDatum = Request("Datum1")

BeginnZeit =Request("Zeit1") 'Beginn Zeit Zeit, 24h

EndeDatum = mid(Request("Datum2"),4) 'Ende Datum Datum, tt.mm.jjjj

'EndeDatum = Request("Datum2")

EndeZeit = Request("Zeit2") 'Ende Zeit Zeit, 24h

Kommentar = Request.Form("T6") 'Kommentar Text



set rs = Server.CreateObject("ADODB.Recordset")

strPfadDB = Server.MapPath("mitarbeiter.mdb")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPfadDB

SQL = "Insert Into tab_Abwesenheit (" & _

"PersonalID, BeginnDatum, BeginnZeit, EndeDatum, EndeZeit, Kommentar) Values (" & _

"'" & NameID & "','" & BeginnDatum & "'," & _

"'" & BeginnZeit & "','" & EndeDatum & "','" & EndeZeit & "','" & Kommentar & "')"

rs.Open SQL, strConn, 2, 3

set rs = nothing



Response.Redirect("abwesend.asp")



else

dummy=true

call test()

end if

end if

%>



gruß

gizzy

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: