quiero crear un fomulario
<div id="embarque">
<h1>Ficha de Embarque</h1>
<form >
<fieldset id="1">
<fieldset id="2">
<label for="name">Nº Vuelo:</label> <input type="text" id="name" placeholder="Enter numero de vuelo" /> <label for="std">Std:</label> <input type="text" id="std" placeholder="STD" /> <label for="cted">Ctd:</label> <input type="text" id="cted" placeholder="CTED" />
<label for="dest1">Dest1:</label> <input type="text" id="dest1" placeholder="Dest1" /> <label for="dest2">Dest2:</label> <input type="text" id="dest2" placeholder="Dest2" /> <label for="reg-s">Reg-s:</label> <input type="text" id="reg-s" placeholder="Reg-s" />
<label for="pkn-s">Pkn-s:</label> <input type="text" id="pkn-s" placeholder="Pkn-s" /> <label for="gate">Gate:</label> <input type="text" id="gate" placeholder="Gate" /> <label for="slot">Slot:</label> <input type="text" id="slot" placeholder="slot" />
</fieldset>
<fieldset id="3">
<label for="observaciones">Observaciones de Embarque</label>
<textarea id="message" placeholder="There were problems that?"></textarea>
<fieldset id="4">
<input type="submit" value="search" /> <input type="submit" value="Print" />
</fieldset>
</fieldset>
</fieldset>
</form>
</div>
en donde al poner un dato en el campo label for name apretando el boton search
me busque datos secuenciales.
<%
Dim Fso
Dim ts
Fso = Server.CreateObject("Scripting.FileSystemObject")
ts = Server.CreateObject("Scripting.FileSystemObject")
Dim strCodigo As String
Dim strLinea As String
Fso.CopyFile("C:\Users\ELENA\Desktop\TRABAJO\mappe rS.pv", "C:\Users\ELENA\Desktop\TRABAJO\Temp\MAPPERS.P V")
ts = Fso.OpenTextFile("C:\Users\ELENA\Desktop\TRABAJO\T emp\MAPPERS.PV")
strCodigo = ("label name")
Do While Not (ts.AtEndOfStream)
strLinea = ts.ReadLine
If strCodigo = Left(strLinea, Len(strCodigo)) Then
<%
Dim Fso
Dim ts
Fso = Server.CreateObject("Scripting.FileSystemObject")
ts = Server.CreateObject("Scripting.FileSystemObject")
Dim strCodigo As String
Dim strLinea As String
Fso.CopyFile("C:\Users\ELENA\Desktop\TRABAJO\mappe rS.pv", "C:\Users\ELENA\Desktop\TRABAJO\Temp\MAPPERS.P V")
ts = Fso.OpenTextFile("C:\Users\ELENA\Desktop\TRABAJO\T emp\MAPPERS.PV")
strCodigo = ("IB 0817")
Do While Not (ts.AtEndOfStream)
strLinea = ts.ReadLine
If strCodigo = Left(strLinea, Len(strCodigo)) Then
Dim SVALOR1 As Object
Dim SVALOR3 As String
Dim SVALOR4 As String
Dim SVALOR5 As String
Dim SVALOR7 As String
Exit Do
End If
Loop
Labelh_std.Text = "SVALOR3"
si alguien me puede orientar lo agradeceria.
