SHANTEL KREBS

As of today we have processed all corporate filings received in our office through

April 27, 2016

 

1 2 3 4

 

 

 

 

Information Pamphlet

This section is dedicated to providing corporations with the information they are seeking.

view more

Economic Reports

Relaying all of the information pertaining to the growth of South Dakota's outstanding economy.

view more

Certificate of Good Standing

Is your corporate entity in good standing with the state of South Dakota? Find out now.

view more

File Annual Report

All corporate entities must file with the secretary of state's office.

<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% 'Set up Connection object and Connection String for a SQL Client Dim SQLCon As New SqlClient.SqlConnection SQLCon.ConnectionString = "server=Espr1sql11\Prod01;user id=sdsos;password=j*8zJzTBN8;database=SDSOS;Persist Security Info=True" SQLCon.Open() Dim SQLCmd As New SqlClient.SqlCommand SQLCmd.CommandText = "SELECT Count(orgPKID) FROM SOS_Organization" SQLCmd.Connection = SQLCon 'Active Connection Dim sqlAdp As New SqlDataAdapter Dim ds As New DataSet sqlAdp.SelectCommand = SQLCmd sqlAdp.Fill (ds) 'fill County Table Dim Corps_rows As DataRow Dim Corps_table As DataTable Corps_table = ds.Tables(0) Dim SQLCmd2 As New SqlClient.SqlCommand SQLCmd2.CommandText = "SELECT COUNT(frmPKID) FROM AR_Form WHERE (frmYear = '" & Now.Year & "')" SQLCmd2.Connection = SQLCon 'Active Connection Dim sqlAdp2 As New SqlDataAdapter Dim ds2 As New DataSet sqlAdp2.SelectCommand = SQLCmd2 sqlAdp2.Fill (ds2) 'fill County Table Dim Yearly_rows As DataRow Dim Yearly_table As DataTable Yearly_table = ds2.Tables(0) %>

Total Number of Corporations:
<% Dim i as Integer For i = 0 to Corps_table.Rows.Count - 1 Corps_rows = Corps_table.Rows(i) Dim Corps as Integer = Corps_rows("Column1") Response.Write(String.Format("{0:#,##0}", Corps)) Next i %>

Total Number of Annual Reports This Year:
<% Dim j as Integer For j = 0 to Yearly_table.Rows.Count - 1 Yearly_rows = Yearly_table.Rows(j) Dim YearlyCorps as Integer = Yearly_rows("Column1") Response.Write(String.Format("{0:#,##0}", YearlyCorps)) Next j %>

view more