terroraapje
Gebruiker
- Lid geworden
- 14 sep 2010
- Berichten
- 87
Ben ik weer
heb nu nog een leuke vraag
ik heb op mijn pagina een form(record.asp)
bij het submitten moet er een pop-up opkommen met daarin de info die ingevuld is maar krijg niks te zien.
Form:
pop-up:
server db en dergelijke zijn natuurlijk anders want er staat vertrouwlijke info in
heb nu nog een leuke vraag
ik heb op mijn pagina een form(record.asp)
bij het submitten moet er een pop-up opkommen met daarin de info die ingevuld is maar krijg niks te zien.
Form:
Code:
<%@LANGUAGE=VBSCRIPT%>
<html>
<head>
<title>
</title>
<link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" />
<LINK href="style.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=250,height=250,left = 515,top = 387');");
}
// End -->
</script>
</head>
<!--connectie en objecten-->
<%session.lcid=1043%>
<%
' Setting variables
Dim con, sql_insert, data_source, strConnection, conn, rs, strSQL
bedrag=request.form("bedrag")
prnmmr=request.form("prnmmr")
vertw1=request.form("vertw1")
bedrijf=request.form("bedrijf")
datum1=request.form("datum1")
pr1=request.form("pr1")
pr2=request.form("pr2")
data_source = "Driver=SQL Server;Server=server;" & _
"Database=db;Uid=user;Pwd=pw;"
'sql_insert = "INSERT INTO db (prive)" & _
'" VALUES('" & prnmmr & "','" & bedrag & "','" & vertw1 & "','" & bedrijf & "','" & datum1 & "')"
' Creating the Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
' Executing the sql insertion code
' con.Execute sql_insert
strConnection = "Driver=SQL Server;Server=server;" & _
"Database=db;Uid=user;Pwd=pw;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT DISTINCT 'table'' FROM db WHERE 'kol' = '" & pr1 & "'"
rs.open strSQL, conn, 3,3
%>
<body>
<div id="header">
<img src="images/logo.gif"></img>
<center><h2><i>Demoversie</i></h2></center>
<center><h2>Database Prins</h2></center>
</div>
<div id="menu">
<a href="index.html">Home</a>
<a href="asp.asp">Zoeken</a>
<a href="record.asp">Nieuw Record</a>
</div>
<div id="containerbody">
<div id="colOneDB">
<br>
<center><h2>Nieuwe record</h2></center>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<%
if pr1<>""then
sql="SELECT 'tabel' FROM db WHERE 'col' = '" & pr1 & "'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
<tr><td>
<form method="post" onClick="javascript:popUp('recordok.asp')">
Project nummer:
</td><td>
<select name="pr2">
<%
do until rs.EOF %>
<option value="<%response.write rs.fields("proj num new") %>0"><%response.write rs.fields("proj num new") %>0</option>
<%
rs.MoveNext
loop
%>
</td></tr>
<tr><td>
Orderbedrag:
</td><td>
€<input type="text" name="bedrag">
</td></tr>
<tr><td>
Vertegenwoordiger:
</td><td>
<select name="vertw1">
<option value="">Kies</option>
<option value="Ronol">Rono</option>
<option value="Widlo">Wido</option>
<option value="Ruwus">Ruwu</option>
<option value="Arovfo">Arov</option>
</select>
</td></tr>
<tr><td>
Datum:
</td><td>
<input type="test" name="datum1" value="<%response.write Year(date)%>-<%response.write Month(date)%>-<%response.write Day(date)%>">
</td></tr>
<tr><td>
Klant:
</td><td>
<input type="text" name="bedrijf">
</td></tr>
<tr><td>
<input type="submit" value="Aanmaken" onClick="javascript:popUp('recordok.asp')">
</td></tr>
<%
Else
%>
<tr><td>
<form method="post">
Project nummer:
</td><td>
<select name="pr1">
<option value="20">20</option>
<option value="47">47</option>
<option value="48">48</option>
<option value="49">49</option>
<option value="71">71</option>
<option value="75">75</option>
</select>
</td></tr>
<tr><td>
<input type="submit" value="Aanmaken">
</td></tr>
<%
end if
%>
</form>
</table>
<form>
</form>
</div>
</div>
</body>
</html>pop-up:
Code:
<html>
<head>
<title>
Weet u het zeker?
</title>
</head>
<%
' Setting variables
Dim con, sql_insert, data_source, strConnection
ja=request.form("ja")
bedrag=request.form("bedrag")
prnmmr=request.form("prnmmr")
vertw1=request.form("vertw1")
bedrijf=request.form("bedrijf")
datum1=request.form("datum1")
pr1=request.form("pr1")
pr2=request.form("pr2")
%>
<body>
<body bgcolor="#CCCCCC">
<form><input type="submit" name="ja" value="Ja"></form>
<a href="javascript:window.close();"><button>Nee</button></a>
<table>
<tr><td>Projectnummer</td><td><%response.write(request.form("datum1"))%></td></tr>
<tr><td>Orderbedrag</td><td><%Response.write(request.form("bedrag"))%></td></tr>
<tr><td>Datum</td><td><%Response.write(datum1)%></td></tr>
<tr><td>Vertegenwoordiger</td><td><%Response.write(vertw1)%></td></tr>
<tr><td>Klant/Bedrijf</td><td><% Response.write(bedrijf)%></td></tr>
<% if ja<>"" then
data_source = "Driver=SQL Server;Server=server;" & _
"Database=db;Uid=user;Pwd=pw;"
sql_insert = "INSERT INTO db (prive)" & _
" VALUES('" & pr2 & "','" & bedrag & "','" & vertw1 & "','" & bedrijf & "','" & datum1 & "')"
' Creating the Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
' Executing the sql insertion code
con.Execute sql_insert
end if
%>
</body>server db en dergelijke zijn natuurlijk anders want er staat vertrouwlijke info in
Laatst bewerkt:
